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Many  of  the  existing  data  "base  management  systems  have 
been  developed  for  large  applications  such  as  bis  business. 
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This  syst°m  has  the  capability  to  create,  update,  delete  and 
insert  information,  and  to  respond  to  user  inquiries.  Because 
of  the  limited  storage  capacity  and  relatively  slow  access 
speeds  of  floury  disks,  the  system  will  only  satisfy  small 
a ool ica ti ons .  However,  the  advent  of  compatible  hard  disk 
systems  for  microcomputers  will  enable  the  system  to  be  used 
for  significantly  larger  apnlications. 
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I.   INTRODUCTION 


It  might  be  said  that  this  is  the  data  base  era  in 
computer  technology.  Data  base  processing  has  grown  in 
significance  among  computer  scientists  and  also  among 
managers  of  organizations.  The  capacities  of  on-line  data 
files  have  ?rowr.  raDidly.  »s  capacities  20  up,  the  cost  per 
bit  of  storage  comes  down.  This  situation  motivates  data  bas*3 
designers  to  continue  their  efforts  to  obtain  tetter  data 
base  systems. 

Hn  irnDorta,,,t  consideration  in  data  base  design  is  to 
store  data  in  such  a  way  that  it  can  be  used  for  a  wide 
variety  0  *"  apolications.  By  doing  so,  the  data  ca-^.  be  changed 
quickly  and  easily.  To  achieve  the  flexibility  of  data  usage 
that  is  essential  in  nost  c^m^ercial  situations,  two  asperts 
of  data  base  design  are  important.  "First,  the  data  should  be 
independent  of  the  urograms  whicv  use  it,  so  that  it  can  be 
modified  without  the  programs  being  changed  (data 
independence).  Second,  it  should  be  possible  to  interrogate 
and  search  the  data  bas°  without  *he  lengthy  operation  of 
writing  urograms  ir  conventional  programming  languages.  For 
this  purpose,  data  base  ouery  languages  are  used.  If  the 
structure  of  the  data  base  is  independent  of  the  program  that 


accesses  it,  th°Ti  it  is  possiblQ  to  develop  an  English-like, 
non-procedural ,  auery  language.  The  relational  model  supports 
data  independence  better  tha"  other  models,  and  therefore,  is 
the  most  appropriate  among  the  existing  data  base  models  for 
development  of  a  query  language. 

Tt  is  very  difficult  to  design  a  data  base  which  performs 
in  an  optimal  fashion.  Ther<=>  ar°  ^a^y  different  ways  in  which 
data  car.  he  structured  and  each  has  its  own  advantages  and 
disadvantages.  Different  users  ha^e  different,  reauirements . 
It  is  hardly  possible  to  satisfy  all  of  the  users  with  one 
type  of  data  organization.  Tha1-  is  why  trade-offs  are 
freauentlv  made.  Examples  include  trade-offs  between  storage 
and  time  utilization,  and  between  resoonse  time  and 
complexity  of  data  structure. 

The  data  base  system  developed  in  this  thesis  strives  for 
low  initial  ana"  operating  costs.  It  uses  a  microcomputer  as 
the  main  computer  and  flopuy  disks  as  secondary  storage. 


The  widely-available  UCSD  Pascal  software  is  compatible 
with  most  mi croconput°rs  usi^g  the  C?/M  operating  system.  The 
software  includes  such  features  as  a  screen-oriented  text 
editor,  an  easy  to  use  fi">e  system,  and  a  library  manager. 
The  system  supports  interactive  urograms  and  allows  a  program 
to  be  partitioned  into  separately  compilable  units.  For  these 


reasons  the  UCSD  Pascal  software  oackase  was   chosen   as   the 
underlying  software  support  system  [Ref.l]. 

The  data  is  stored  in  the  data  base  in  the  form  of 
records,  he^ce,  a  special  oro^ran  was  developed  t^>  "be  used  to 
create  a  new  data  base. 

The  ia.  +  a  "base  system  storage  structure  uses  the 
separation  techniaue.  This  technioue  consists  of  storing  the 
data  separately  f^onn  the  relationships.  The  advantages  of 
this  approach  are  faster  data  retrieval,  more  comolete  data 
independence  and  economical  use  of  storage  [Ref.2].  More 
details  can  "be  seer  in  chapter  6. 


The  data  base  management  svstp^  iovel^pei  ir.  this  thesis 
is  a  miniature  version  of  data  base  management  systems 
typically  available  on  larger  systems. 


II.   BWJ^OUMD 


A.   THE  NECESSITY  OF  s  D HT fl  BASE  MANAGEMENT  SYSTEMS 

Computer- "based  systems  have  "become  important  tools  for 
retrievirff  timely  and  accurate  information.  *>  data  base 
system  is  e^pec^ed  to  provide  its  user  with  the  r°auir°^ 
information  within  a  specified  time.  Most  of  today's  data 
"base  ma^a^eme^t,  systpms,  woT,e  developed  to  manage  large  data 
bases.  For  small  systems,  these  data  base  management  systems 
are  toe  expensive  f  ^  imple'mert. 

Organizations  within  the  Indonesian  a.rmed  Forces 
represer*  examples  of  cT-^an  i  nations  which  need  smaller  data 
base  management  systems  with  reasonaole  operating  and 
mainterarce  costs.  There  aro  raiy  lower  level  organizations 
which  need  to  provide  fast  information  to  the  higher 
headauart =>rs .  They  need  to  be  eauipred  with  local 
computerized  systems  which  can  provide  fast  and  accurate 
information.  "°y  maintaining  data  in  a  data  base  system, 
accurate  and  uo-to-date  information  czn    be  maintained. 
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73  .   MICRO "0MPUT7R  OVTRVI^W 

1.  I  n  t  r  o  du  c *  i  n  ^ 

In  general,  the  term  "microcomputer"  can  be  defined 
as  a  stored  program  computer  comprising  memory  and 
input/output  circuits  together  with  a  microprocessor  CPU 
[fief .3] .  Microcomputers  have  attracted  many  people  because  of 
several  advantages  r^pj-  larger  computers.  First, 
microcomputer?  ~an  be  use''  *^r  a  wide  range  ^f  specific 
applications.  Second,  microcomputers  are  powerful,  reliable, 
and  inexpensive .  Tvev  can  operate  effectively  in  environments 
where  older  computers  would  fail.  Most  off-the-shelf 
microcomputers  orerate  at  "oom  temperature  and  reouire  no 
special  a i r  conditioning  or  Dover  s^nolies. 

2.  Perspective  Cn  [Ji£r.°.c?Q?L2i2r5 

The  major  disadvantages  of  existing  data  base  systems 
are  initial  cost  and  high  operating  costs.  The  use  of  a 
microcomputer  system  should  be  considered  as  ar).  alternative, 
obtaining  a  data  base  system  of  smaller  si?e,  but  with  lower 
operating  costs.  -ecent  developments  in  microcomputer 
technology  have  already  provided  them  with  the  hardware 
capabilities  to  retrieve  and  update  information.  For 
microcomputers   which   have  no  such  hardware  the  capabilities 
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Cq-  "be  im  piemen  ted  in  softva^0.  Without  thQse  capabili  t  i°s 
the  development  of  a  data  base  system  is  hardly  possible. 
Floppy  disks  a^e  currently  the  principle  auxiliary  storage 
devices  used  with  microcomputer  systems.  Their  physical 
orgar.i 7at  ior  is  similar  to  hard  disks,  however,  their  storage 
capacities  and  access  speeds  are  significantly  less. 

T^.e  use  of  a  microcomputer  as  a  stand-alore  data  bas° 
ma~a,*rererf  system  vith  ar.  English— oriented  Query  lar^ua^e , 
and  UCSD  Pascal  as  suopcrtin^  software,  seems  feasible. 


C.   UCSD  PASCAL 

UCST  Pascal  was  chosen  as  the  underlying  software  support 
system  fo"  the  fallowing  reasons. 

1.  The  software  includes  such  features  as  a 
scree^-o^ie^ted  text  editor,  a  useful  file  system,  and 
a  library  manager.  The  system  supports  interactive 
programs . 

2.  The  UCSr  Pascal  compiler  is  a  one-pass  recursive 
descent  compiler .  It  generates  code  files  to  rur 
directly  nr  the  Pascal  interpretive  machine.  V/her 
comoile-tiTe   errors   occur,   the  user  may  optionally 
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r0*!!'""  ^i-*°cfly  to  the  screer~flrier,teT'  editor  with   the 

cursor   at  the  position  in  the  file  where  the  error  was 
tle^ec^ei. 

3.  Segment  Procedure  allovs  the  user  to  partition  a  lar5:e 
pro^ra^  into  several  segments.  Fach  segment  is  compiled 
separately.  The  Linker  oro^ram  is  then  used  to  lms  the 
separate  segments  together  to  produce  ore  larpe  cede 
file.  This  procedure  enables  large  programs  to  be  run 
i r  fhe  relatively  small  r*  a  i  r  merrcry. 

4.  The  S^TU^  pro^ra^  enables  the  users  to  reconfigure  the 
U  C  S  "D  Pascal  ooeratir.^*  system  to  suit  his  cr  her 
eauipment  or  taste.  This  is  necessary  when  the  system 
is  used  with  different  te^'^irals  °r  iifferpT,t  machine 
configurations.  STTU?  enables  the  user  to  make  these 
change*;  auicV"ly  and  »asilv. 
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III.   07TEVIEW  OF  3  DATA  BASE  SYSTEM 


A.   riTFODUCTIC\ 

The  tern  "data  base"  is  still  not  accepted  with  a 
standard  meaning.  However  it  is  to  s  one  extort  accented  as 
conveying  a  more  sophisticated  concept  than  the  oiler  tern 
'file".  Confusion  has  arise  over  the  meaning  of  the  data 
base.  Users  tend  to  look  upon  a  database  as  the  aggregate  of 
lata  froT1  which  they  ran  make  decisions. 

The  foll^vi^g  def  ini  t  i"^  nf  a  data  base  is  due  to 
[Hef  .21  . 

".A  data  bas°  is  a  collection  *f   interrelated   data   stored 

together  with  the  minimum  redundancy  to  serve  one  or  more 
apolications  in  an  optimal  fashion.  The  data  is  stored  so 
that  they  are  independent  of  urograms  which  must  use  the 
data.  A  common  and  controlled  approach  is  used  in  adding 
new  data  and  in  modifying  and  retrieving  existing  data 
wit.  hi*1  the  data  base." 

"Data  processors  have  tried  to  develou  data  bases  without 
realizing  the  magnitude  of  the  task.  In  reality,  most  of  the 
today's  data  bases  serve  a  limited  set  of  applications. 
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In  designing  a  data  "base  system  there  are  many  facts  that 
should  be  cor. si^ere"?.  The  following  a**e  among  the  primary 
objectives  of  data  base  organizations. 
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It    should   make   applications   development   easier, 

cheap*3'*,  faster,  and  nc^°  flexible. 

The  dafa  should  have  multiple  uses. 

Da*a  independence. 

Clarity.  Tase  of  understanding?  what  data  is  available 

to  the  users . 

flexible   usage.    Tata    can   be      used      in      flexible      ways 

wifh   different    access    paths. 

Spontaneous      reauests      for   data    can    be   handled    easily 

by  mea^s    of   a    high      level      query     language      or      report 

generation   language. 

Charge   is    easy. 

low   cost . 

Accuracy  and  consistency. 

Privacy 


Cf  course  we  cannot  expect  all  of  these  objectives  will 
be  gained  in  the  optimum  fashion  at  the  sane  time.  Defending 
on  the  user's  reauiremen ts ,  the  data  base  is  designed  tc 
achieve  their  primary  objectives.  Tre   primary   objective   of 
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this   thesis   is   to   design   a   data   base   system  for  small 
aDDlications  with  low  iritial  and  operating  costs. 


3.   TATA  BASE  SYSTEM  COMPOMSNTS 

?  data  base  system  involves  three  components : 

1.  User  cr   application  p^ogra^s 

2.  The  iata  base  system  '■cro^rams  for  accessing  the  lata 
base. ) 

3.  The  data  base  itself 


User  programs  are  programs-  through  which  the  users 
interact  directly  with  the  system.  These  programs  are  written 
in  a  aue^y  la^gua^e.  .sppl  ica*  ic^s  p^osra^s  interact  with  the 
system  via  a  language  such  as  CORCL  or  PL/I.  The  data  base 
system  is  a  set  o*  computer  urograms,  that  ODerate  on  the 
data  base  in  accordance  with  the  user's  commands. 


C.   ^"T11  P«Sr  STRUCTURE 

For  the   pr»e«>o,nt   discussion,  ^ata   structuring  may  be 

defined   as    the   computerized   representation   of  the 

relationship  between  distinct  data  items  or  data  groups.  The 
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following  is  an  example.  ^or  a  given  school  there  are  two 
basic  sets  ^f  information.  Thes°  sets  are  student  data  and 
course  data.  Sep  figure  [2-1].  Tata  on  each  student  is 
maintained  as  a  record  and  the  collection  of  these  records 
becores  the  student  file.  Likewise  ^eco^ds  on  each  course  are 
collected  into  the  course  file.  These  files  are  considered  as 
the  primitive  da*a  "bases.  Tn  obtain  the  names  of  students 
which  have  been  scheduled  into  classes,  the  relationships 
betweer  data  groups  of  these  two  files  are  reouired.  figure 
[2-2]  .  The  school  data  base  becomes  Tore  complex  as- 
additional  record  types  are  added.  Tor  example,  a  teacher 
file  is  added.  The  data  base  now  should  have  relationships 
between  the  teachers  and  students  and  between  the  teachers 
aM  the  c ourses  . 

Recalling  from  the  definition  above,  the  rrocess  of 
Structuring  a  da*a  base  is  a  means  of  mapping  the  different 
data  types.  This  mapping  can  be  done  using  physical  linkage 
or  by  inversion.  Physical  linkage  implies  that  addresses  of 
related  records  are  stored  within  records  themselves  so  that 
linkage  "paths"  exist  within  and  amor?  physical  files. 
Inversion  is  the  use  of  an  'inverted  file'  which  contains  the 
locations  of  fh°  data  bas°  records  [Fef.4l.  in.  inverted  file 
can  be  defined  as  a  file  which  contains  the  entity 
identifiers  associated  with  the  values  of  certain  attributes. 
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D.   RELATION1  !L  1»T5  ^  SE  aP?POACH 

In  today's  world,  users  'i.e  managers)  are  more  concerned 
with  the  information  content  of  their  data  rather  than  its 
representation.  Managers  tend  not  to  "be  bothered  by  bits, 
pointers,  arrays,  lists,  etc.,  which  ^ay  be  used  to  represent 
information.  ?ather,  they  desire  'independence'  from 
implementation  details.  Ir  the  relational  model,  information 
is  represented  af  the  user  interface  by  data  values  only. 
User  reauests  become  free  of  any  dependence  on  internal 
representation  a^d  her.ce  ^ay  be  framed  in  a  high-level 
non-procedural  language  [Ref.5].  At  the  same  time  the  system 
become^  f^ee  *o  choose  any  ohysi^al  structure  for  storage  of 
data  and  to  optimize  the  ere cut  ion  of  given  reauests.  These 
characteristics  are  important  for  t*e  use  of  a  microcomputer 
as  a  rain  computer  due  to  limited  size  of  storage  and 
slowness  of  aocess  inherent  with  floppy  disks.  Data 
independercv  also  enables  the  development  of  English-like 
nonprocedural  Query  languages. 
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STUDFNT    Tllv 


C0IP.S2    fill 


Fia.    2-1.    School   data    case. 
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STUDENT  RECORDS 


COUFSE  RECORDS 


JIM  ? 


i   COM?.  SC. 


CHEMISTRY 


Fig.  2-2.    STUDENT-FOURS'  Relationships. 
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IV.   SYST™  R^QUIRTMTMTS 


h.    HARDWARE  RTOUIR^MTNTS 

The  system  developed  in  this  thesis  uses  an  ALTOS 
microcomputer  f  Z-Cr*  plus  64T<  memory^  with  two  single-density 
floppy  disk  drives  and  the  UCST)  Pascal  software  system.  Each 
floppy  disk  has  a  caoacity  of  256K  bytes.  The  64K  memory  size 
is  considered  to  he  adeauate  for  storing  the  operating 
system,  programs  being  erem^ed  and  for  working  space. 
Certainly,  the  larger  the  size  of  the  memory,  the  more 
suitable  it  be~r>m95  for  the  data  base  system  implementation . 
The  more  significant  limitation  is  in  the  floppy  disk 
capacity.  512T  by  +  es  of  storage  is  too  small  to  hold  the  data 
base  and  the  data  base  system  urograms.  However,  additional 
floppy  disks,  higher  densities,  and  eventually,  hard  disks 
will  greatly  enhance  the  storage  capacity. 

The  UrSD  Pascal  system  is  compatible  with  most 
microcomputers  usirg  the  C?  'M  operating  system.  CVM  is  the 
operating  system  used  for  Intel  8030  and  Z-30 
microprocessors  .  C?/M  provides  a  general  environment  for 
program  construction,  storage,  and  editing,  along  with 
assembly  and  urogram  check-out  facilities.  In  general,  it 
needs   at   least  16K     nenorv  with  up   to  four  disk  drives. 
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However.  THsital  Pesearch  has  recently  developed  CP/M  version 
2.0,  wich  ca.",  provide  data  management  for  up  to  123  terabytes 
[?.ef  .61  . 


B.   SOFTWARE  SUPPORT 
!•   I-LiH2iMCt  ion 

To  support  the  implementation  of  a  data  base  system, 
the  system  reeds  ar.  operating  system,  a  data  base  creator, 
and  the  capabilities  to  create,  delete  and  insert,  update, 
and  retrieve  data.  The  query  language  is  used  by  the  user  to 
interact  with  the  data  bas°.  a  help  command  is  necessary  to 
assist  the  users  in  obtaining  information  about  the  lexical 
structure  of  the  data  base  and  to  provide  on-line  information 
on   hnw  to  use  the  data  bas°  system. 

?•   ?2§ratins:  System 

The  operating  system  was  provided  by  UCSC  Pascal.  It 
is  reauired  to  sunport  the  ^ile  structure  that  will  allow 
dynamic  allocation  of  file  space,  yet  permit  both  seauential 
and  random  file  access.  The  UCS^  Pascal  oueratins  systen  can 
support  the  normal  internal  operations  necessary  for  the 
microcomputer   system   to   interface  with  standard  peripheral 
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eauipme^t  (e.g.  printer,  CRT,  ^isk,  etc.). 

3.   Data  Ja.se   Management  System 

A  data  base  management  system  is  a  set  of  programs 
that  operate  on  the  data  base  in  accordance  with  the  user's 
commands.  It  has  two  major  functions,  i.e.,  data  organization 
and  data  access  . 

After  the  user  issues  a  request  using  the  query 
language,  the  data  "base  management  system  intercepts  the 
reauest,  ard  interprets  it.  Tinally,  it  performs  the 
operations  on  the  data  base.  The  data  "base  management  system 
developed  ir  this  th°sis  has  three  major  suburograms »  a 
parser,  an  interpreter,  and  a  data  "base  creator.  The  parser 
analyzes  the  syntax  of  the  commands  received  from  the 
terminal  using  the  top-down  parsing  method.  If  the  command  is 
syntactically  correct,  it  is  coded  into  a  table.  The 
interpreter  then  takes  the  codes  from  the  table,  interprets 
them,  and  the"  executes  the  command.  If  the  syntax  is  rot 
correct,  an  erro1"  message  is  displayed  at  the  terminal.  The 
user  car  then  repeat  the  reauest  with  the  correct  command. 

The  data  base  creator  is  used  to  create  a  new  data 
base,  or  add  data  to  an  existing  data  base  from  the  terminal. 
The  text  editor  developed  bv  UCST)  Pasoal  cannot   be  used   to 
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create  lata  files  for  the  iata  base.  This  is  tecause  the 
reauired  files  a^e  organize'!  as  sequences  of  encoded  record 
structures.  The  UCST  Pascal  text  editor  can  only  read  and 
write  text  files  'seauences  of  characters).  To  create  the 
data  "base,  a  p^og^am  was  developed  which  reads  a  record  from 
the  terminal  and  writes  it  to  a  file  of  the  desired  type. 


A  ouery  language  is  an  English-like,  self-contained 
data  language.  A  self-contained  data  language  is  a  complete 
programming  language  for  b^th  obtaining  and  ^aninula tin?  data 
from  a  data  base.  The  auery  language  used  in  the  developed 
system,  is  a  SFQUTl-lik0  overy  language  [?ef .7,8 , 91  .  It  was 
developed  tn  he  ablp  to  retrieve  data,  delete  data,  modify 
existing  -lata,  and  add  new  data. 

Retrieve  operations  are  represented  syntactically  as 
S^LECT-FROM-W^R*'  blocks.  Tor  example,  a  command  to  get 
suppliers  numbers  and  status  of  the  suppliers  in  Paris  wo'jld 
look  like 

SFL7CT  S#, STATUS 

FROM  S 

WFF^T  CITY  =  '?A?IS'. 
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The  command  is  executed  by  finding  and  combining  into  a  set 
all  the  rows  where  CITV  =  'p«T?IS'.  Then,  using  the  vertical 
mapping  for  columns  S#  and  STATUS  on  this  set  ,  the  reauested 
information  can  he  obtained. 

Deleting  data,  modifying  existing  data,  and  aiding  new 
data  to  the  lata  base  are  the  storage  operations.  The  DELETE 
command  is  used  to  remove  records  *rom  the  data  base,  the 
UPDATE  command  is  used  for  modifiyng  existing  data,  and  the 
IMSFPT  command  is  used  for  adding  "ew  records  to  the  data 
base . 

~»   ^§i.P  ~  P.  !!)•!!!§•  2  £L  • 

The  beln  command  is  used  to  obtain  information  about 
the  existing  data  base,  i.e.,  its  loarical  structure  the  data 
tyoe  avi  status  of  each  attribute  (retrieval  or 
non-retrieval^  etc.  It  also  provides  on-line  information  on 
how  to  use  the  data  base  system. 
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C.   SYSTEM  C??"^TIONS 


After  initialization,  the  data  base   system  pronDts   the 
user  with  the  following  line. 

Command:  Create.  Ffelp,  Xfecute 


Using  these  cn^n-aMs,  the  user  is  able  to  create  a  new  d-ata 
"base,  to  obtain  information  about  the  existing  data  base,  on 
to  retnieve  and  upiate  the  existing  data  base.  The  details 
concerning  each  command  ane  orovided  in  the  user's  manual 
f appendix  C ) . 
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V.   SYSTrv!  STOR*^*  STRUCTURE 


A.  INTRODUCTION 

A  data  base  managemen t  system  is  an  effective  managerial 
tool  only  if  its  response  time  is  significantly  better  than 
existing  manual  systems. 

T^  desist  such  a  lata  base  management  system  using  a 
microcomputer  as  the  main  computer,  the  arrangement  of  thp 
on-line  auxiliary  storage  structure  must  also  be  considered. 
Currently,  flippy  dis^s  are  the  primary  auxiliary  storage 
devices  found  with  microcomputers.  CTopefully,  the  limitations 
on  storage  capacit.v  ard  access  time  inherent  in  floppy  disks 
will  be  o'.-ercome  in  the  puture  by  hard  disk  systems.  The 
auxiliary  sr0T*a^e  structure  developed  in  this  thesis 
separates  data  a^*  relationships.  The  techniaue  is  to  develop 
and  store  the  relationships  separately  from  the  data  [Ref.2l. 


^.   S?PA?  aTI  \*G  D  -T  a  AMT)  DEL  aTIC\'SFI?5 

Loading  the  data  base   into   main  memory  would   provide 
better   access   time.   However,   this  techriaue  is  unusual  and 
often  impossible  to  implement.  This  is   especially   true   for 
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large  data  "bases.  It  is  also  a  nroblem  for  snail  data  "base 
systems  in  a  microcomputer  based  systems,  because  cf  the 
limited  amount  of  main  memory. 

The  separation  of  data  and  their  relationships  enables 
the  'data  base'  to  be  loaded  into  the  main  memory  in  parts. 
Each  data  item  value  is  stored  once,  and  is  ?iven  a  serial 
number.  The  relationships  are  stored  in  terms  of  serial 
numbers.  This  sa^es  storage  space  with  th^se  data-item  types 
for  which  multiple  data-ite^s  have  the  same  value.  Therefore, 
it  is  possible  to  l^ad  all  the  ^elat ionshiDS .  which  represent 
the  data  base  in  te^ms  cf  serial  numbers,  into  main  memory. 
All  accesses  Involving  these  relat  ionsMps  can  then  be 
improved . 

anotHer  alternative  is  the  possibility  of  loading  only 
the  needed  relationships.  I*  is  not  necessary  to  load  all  of 
the  relationships  in  a  data  base  if  the  user  only  deals  with 
a  particular  relation. 

Separation  can  be  done  at  the  segment  level,  i.e.,  groups 
of  attributes,  or  it  ca*  be  done  at  the  data  item  level, 
i.e.,  individual  attributes,  where  relationships  between  data 
values  are  stored  separately  from  those  values. 

There  are,  now,  two  kinds  of  files;  the  data   files   and 
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the  relationships  files.  nata  files  are  the  files  that 
contain  the  data  item  values.  Relationships  files  can  ce 
grouped  into  inverted  and  non— inverted  files.  The  irvertei 
relationships  fil°s  are  those  that  contain  the 
entity-identifiers  of  the  logical  or  user's  files  associated 
with  the  values  of  any  retrieval  attribute.  Non-inverted 
relationships  files  a^e  th^se  which  contain  the  relationships 
of  all  retrieval  attributes. 

The  objectives  of  this  approach  are: 

1.  To  make  possible  faster  data  retrieval. 

2.  To  provide  more  complete  data  independence. 

3.  To  save  storage. 


C.   TAT*  *IL"?S 

"Data  files  are  organized  separately  from 
relationships  files.  There  are.  *hree  methods  which  can  be 
used  to  construct  a  data  file.  First,  the  data  item  values  of 
each  retrieval  attribute  car  be  stored  in  a  separate  file 
(fully  separated).  Second,  the  data  item  values  of  all  the 
retrieval  attributes  of  the  same  type  are  stored  in  one  file 
(separated  by  segment1*.   Thi^o',   the   inverted   relationships 
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files  a^e  embedded  in  the  associated  data  files  'partially 
separated1).  ?ach  o-*"  th°s°  methods  will  now  te  considered  in 
more  detail. 

?•   r^liy.  Separated  File 

The  data  item  values  of  each  retrieval  attribute  are 
stored  in  a  separate  file.  See  Fig.  [5-1] .  The  data  item 
values  of  non-retrieval  attributes  are  included  in  the 
"entity-identifier  file'l).  The  advantage  of  this  method  is 
the  ease  of  data  uodate.  One  data  item  ca^  be  inserted  to,  or 
deleted  from,  an  attribute  file?^,  without  affecting  any 
other  file. 


Each 


retrieval  record  can  be  accessed  randomly,  when 


the  reccrd  number  of  the  item  within  the  attribute  file  is 
known.  The  record  numbers  of  the  retrieval  data  items  are 
stored  in  the  relationships  files.  Using  the  given  data  item 
as  the  ^ey,  the  record  number  of  this  data  item  in  the 
attribute  file  can  be  searched.  This  record  number  is  used  to 
find  the  value  of  the  reouested  data  item,  "py  knowing  its 
record  number,  the  desired  data  item  can  be  searched  using 
the  random  access  method. 


1)  The  entity-identifier   file   is   a   file  which   contains 
entity-identifier  attribute  olus  non-retrieval  attributes. 

2)  The  attribute  file  is  a  file  which  contains  values  for  one 
attribute  cnly. 
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5-   Separated  ^y  ?£?_e 

In  this  method,  the  contents  of  the  sane  type 
attributes  are  stored  in  one  file.  However  the  record  number 
of  the  first  data  item  of  each  attribute  which  develons  this 
file,  must  he  maintained.  These  record  numbers  are  stored  at 
the  beginning  of  the  file,  just  before  the  first  record,  or 
they  can  fce  stored  in  a  special  file.  See  figure  [5-2].  The 
record  type  can  be  of  fixed  length  or  variable  length. 

before  accessing  the  relationships  file,  the  record 
number  of  the  first  data  item  of  the  attribute  must  be 
subtracted  f^om  the  record  number  of  the  given  data  item. 
Then  to  the  result,  of  the  subtraction,  ore  must  be  added.  The 
result  of  the  addition  is  use*  as  the  record  number  of  the 
given  data  item  in  the  associated  relationships  file.  The 
advantage  of  this  method  is  in  storage  utilization.  The 
disadvantage  is  that,  if  changes  to  the  file  are  frequent, 
deletion  and  insertion  of  a  large  file  will  be  time  consuming 
and  costly.  This  disadvantage  can  be  reduced  by  storing  the 
rarely  changed  attributes  at  the  very  top  of  the  file  and  the 
frequently  charge*  attributes  at  the  bottom. 

!•  ?§.?tially_  Separated  Files 

The  time  used  to  move  control  from  a  data  file   to   a 
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relationships  file,  and  vice-versa,  ca^  be  reduced  if  they 
are  physically  close  together.  This  can  "be  done  "by  embedding 
the  inverted  relationships  files  into  associated  attribute 
files.  The  relationships  files,  now,  are  merely  the  inverted 
ones.  See  figure  [5-31 . 


D.   RELATIONSHIPS  FILE 

Relationships  files  are  used  to  store  the  relationships 
within  the  lexical  file  or  user's  file.  The  relationships 
files  contain  the  record  numbers  of  the  related  attributes 
only.  There  are  two  tyues  of  relationships  files.  One  is  the 
file  which  contains  relationships  of  all  retrieval 
attributes.  This  file  is  a  non-inverted  file.  The  other  files 
a~e  inverted  files.  Each  inverted  file  contains  the 
entity-identifiers  of  fhe  logical  or  user's  files,  associated 
with  the  values  of  any  retrieval  attribute.  Access  to  the 
relationships  file  is  accomplished  after  obtaining  the  record 
number  of  the  given  data  item.  Usin^r  this  record  number, 
access  to  the  associated  inverted  file  will  give  the  record 
number  of  all  entity-identifiers  which  have  relationships  to 
the  giver  data  item.  after  obtaining  the  record  number  of 
these  entity-identifiers,  the  relative  record  numbers  of  the 
desirei  data  items  can  be  accessed  in  the  non-inverted 
relationships  file.  Finally,  these  record  numbers  are  used  to 
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access   associated   lata   files   to   obtain   the   reauested 
information. 


33 


r  a  r 


relationship: 


p 

'J) 

CH 

p 

CO 

ro 

h-1 

O 

o 

O 

o 

o 

o 

O 

~4 

-^1 

-J 

-J 

--J 

-J 

oo 

cn 

cn 

CD 

CD 

cn 

cn 

CO 

-J 

-j 

cn 

u-i 

p 

P 

5* 

H* 

o 

CO 

o 

i^j 

rO 

2=» 

o 

in  i 

-J 


ISJ 

O 

CD 

CD 

on 

3 

CD 

3 

CD 

> 

M  CI 
£-  M 
00  X 

rt 

o 


3 

cn 

cn 

p 

GO 

ro 

h- 

0 

ti 

m 

o 

DO 

> 

> 

M 

o 

> 

r- 

M 

tr- 

22 

1— 1 

s; 

r1 

> 

o 

od 

> 

^ 

> 

n 

22 

n 

M 

2 

CO 

>d 

> 

M 

k: 

M 

c^ 

o 

CD 

SI 

W 

00 

> 

00 

Q 

3 

CO 

ro 

h- > 

0 

O 

ro 

fsj 

h-1 

M 

ISJ 

t-» 

1— ' 

T3 

O 

o 

CD 

H 

=Sa 

3 

jr 

CO      ro      i— ' 

0 

oo 

> 

CD 

T3       n        CL 

00 

O 

1— ■       H-       3 

X 

4 

C       r+       P- 

H 

(0 

3        r+        3 

m 

CT      I'D        H- 

t- 

R 

(B      4      cn 

"■<c 

4               H- 

t-v 

oo 

> 


< 

M 
O 

TO 
M 


n 
n 


< 

tn 
o 

> 
H 
fcH 
O 

oo 

i— i 

00 

n 
i— i 
tn 
tn 
oo 


cn 

cn 

P 

co 

ro 

r-1 

SSN 

P 

ro 

cn 

cn 

h-» 

CO 

NAME 

H-1 

CO 

CO 

ro 

M 

r- ' 

DEPT# 

no 

ro 

CO 

CO 

P 

h-1 

SKILL 

ro 

ro 

H-1 

t— > 

p- 

CO 

SAL 

cn 

cn 

p 

CO 

ro 

H 

NAME 

uO 

P 

cn 

I— » 

cn 

ro 

SSN 

CO 

ro 

h- > 

DEPT# 

cn 

p 

CO 

cn 

ro 

M 

SSN 

P 

CO 

ro 

r-> 

SKILL 

ro 

p 

co 

cn 

cn 

h-1 

SSN 

P        CO 

ro 

t— ' 

SAL 

ro       ! — > 

cn 

cn 

P 

CO 

SSN    ! 
i 

34 


. 

-_. 

-J 

"1 

w 

J 

J     i 

M 

*-"— 

P- 

i — i 

< 

CO 

< 

f-. 

X 

CO 



i — . 

-  1 

1 

3 

1 

1 

3 

2 

1 

1 

4 

4 

3 

6 

2 

3 

1 

4 

5 

3 

3 

1 

5 

2 

3 

2 

2 

6 

4 

1 

2 

2 

CO 

C  'H  I 

?h  13  I  CO 


C    ro 
H  13 

CO 
CO 

"1 

1 

1 

2 

e 

2 

3 

3 

4 
5 

ft  2 

1 

3 
4 

2 

5 
6 

3 

1 

4 

2 

no 


SSH 


07642 
07643 
07650 
07668 
07670 
07671 


NON- INDEXED 
DETAILS 


no  . 

STRING    DATA 

SKILL 

*1 

NAME 

»2 

1 

1 

Administrator 

2 

Fitter 

3 

Plumber 

4 

Secretary 

2 

1 

ALBEY 

ANDREWS 

2 

B LAN AG AN 

4 

DALL 

EDWARDS 

6 

FEIMBURG 

no  . 

INTEGER 
DATA 

DEPT# 

*  1 

SAL 

ft  2 

1 
2 
3 

1 
2 
3 

4 



119 
210 
220 

1000 
1050 
1200 
1750 

Fi^ 


•  eparated  by  Type 


35 


- 



w 

^ 

-: 

H 

j 

j 

< 

P-. 

(— i 

< 

c 

s 

W 

x 

CO 

t— i 

en 

1 

3 

1 

1          3 

2 

1 

1 

4 

4 

3 

6 

2 

3 

1 

4 

5 

3 

Q 

1 

5 

2 

3 

2 

2 

6 

4 

1 

2 

2 

no . 

SSM 

— 1 
MON- 
DE 

1 

07642 

0 

07643 

3 

07650 

4 

07668 

5 

07670 

6 
i 

07671 

i 
...i 

/ 

//- 


no. 

NAME 

IPX 

1 

ALBEY 

2 

2 

ANDREWS 

5 

3 

BLANAGAN 

1 

4 

DALL 

6 

5 

EDWARDS 

4 

6 

FEIMBURG 

3 

no. 

DEPT# 

IDX 

1 

119 

1 

2 

6 

2 

210 

3 

3 

220 

4 

5 

| 
no. 

SKILL 

IDX 

1 

Administrator 

1 

2 

Fitter 

5 

• 

Plumber 

3 
4 

4 

Secretary 

2 

i 

i 

no. 

SAL 

irx 

1 

1000 

3 
4 

2 

1050 

i 
3      i 

1 

3  I   1200 

4  1^50 


b   ; 
1 


r  12 


5-3.  Parti. ill-.'  Separated'  Structure 


36 


71  .   DaT«  P*S^  D^SITN 


A.   STRUCTURE  ORGANIZATION 

The  data  base  structure  developed  in  this  thesis  is  a 
fully  separated  structure.  The  initial  data  base  is  created 
using  a  special  urogram. 

tJCS"D  °ascal  has  the  capability  to  access  variables  of 
type  string,  either  of  fixed  or  variable  length.  It  also 
supports  random  access  files.  Therefore,  all  data  item  values 
and  relationships  are  stored  as  records.  Since  the  first 
record  r>f  a  file  is  the  Pth  record.  the  physical  record 
number  is  one  less  than  the  serial  number. 

Since  the  relationships  files  contain  the  record  numbers 
of  the  data  files,  the  organization  then,  is  similar  to  the 
basic  inverted  organization,  except  that  it  uses  a  relation 
file  (non-inverted  relationships  file)  rather  than  the 
original  data  base  records.. 

The  advantage  of  this  svste'"  is  sood  performance  in 
response  to  various  types  of  aueries  involving  the  inverted 
attribute   values   without   searching  the  whole  file.  Queries 
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like  Are  there  any  personnel  i^  department  ^Jo.  1C0  with 
salary  eaual  to  ^av*.  '  can  he  answered  easily  ty  8\!Ding  the 
lists  cf  pointers  'record  numbers)  corresponding  to  the 
access  keys  D??T*  and  SAL  in  the  auery.  It  also  provides  more 
complete  data  independence,  ""y  separating  the  data,  different 
apolications  will  he  able  to  have  different  views  of  the  same 
data.  It  world  be  possible  to  change  the  applications  without 
any  changes  in  the  stored  data. 

Another  advantage  is  storage  soace  saving.  "For 
illustration,  supo^se  there  are  only  six  SKILL  values.  The 
file  contains  many  secretaries,  hut  the  value  'SECRETARY'  is 
stored  only  once  in  the  data  file.  all  the  values  'SECRETARY' 
in  the  data  has*3  arp  stored  in  terms  of  the  serial  number  of 
'SECRETARY'  in  the  non-inverted  relationships  files.  In  the 
relationships  files,  3  SKILL  value  could  he  referred  to  with 
3  hits.  Using  UCSD  Pascal  this  value  is  stored  as  an  integer 
in  a  16-bit  word . 

The  disadvantage  is  that  it  is  more  costly  for  the 
updating  process  because  of  the  necessity  of  maintaining  both 
the  data  and  the  relationships  files.  However,  it  is  still 
better  than  the  doubly  chained  tree  or  multilist 
organizations  [Fef.10]. 
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B.   TF^  TATA  EAST  ACCTSS 

The  data  base  management  system  will  handle  all  access  to 
the  da*a  "base.  It  i^terc°pts  the  user's  request,  interprets 
it,  and  performs  the  necessary  operations  on  the  data  base. 
It  makes  use  of  an  access  method  to  handle  the  details  of 
physical  access  to  th*8  data  "base.  This  physical  (lower  level) 
access  method  is  performed  by  the  UCSD  Pascal  operating 
system . 

There  are  four  major  programs  which  were  developed  to 
access  the  data  base.  CR^TY  is  a  program  which  creates  the 
initial  data  bas°.  Th°  PURSER  is  a  program  which  verifies  the 
user's  reauest  and  provides  all  information  needed  by  the 
IMTEPPFFTT? .  The  I  NTH?? FETE?  is  a  program  which  performs  the 
necessary  data  base  manipulations.  ?"?LP  is  a  orc^ram  which 
provides  the  user  with  information  concerning  the  logical 
structure  of  the  data  base. 

fill  the  programs  are  written  in  UCSD  Pascal.  They  were 
compiled  separately  ani  stored  in  the  system  library. 

1.  Hreate 

The  initial  data  base   is   created   by   invoking   the 
C31?aT'F  program.  Th°  data  can  be  stored  in  the  desired  file  in 
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rerord  format,  either  of  tyre  integer,  string,  set  of 
integers,  "i'r  £  combination  o*  those,  7  or  convenience,  all 
data  files  are  stored  in  floppy  disk  drive  No.l.  The  system 
disk  'drive  O  is  used  for  the  operating  system,  utilities, 
the  data  "base  programs,  ani  user  application  programs. 

2.   Parser 

This  program  first  initializes  the  system  for  lata 
base  manipulation  operations.  Then  it  asks  the  user  to 
describe  the  data  base  he  or  she  needs  access  to.  It  accepts 
the  user's  reauest  written  in  a  S70U^L-like  aueny  language. 
Error  messages  will  be  displayed  at  the  terminal  for  any 
syntax  error,  and  the  user  will  be  prompted  to  reenter  his  or 
her  reauest.  When  rorrect  input,  is  received,  the  prosr^am 
venerates  a  seouence  table  and  a  reference  table.  These 
tables  will  ^e  used  by  the  IMTTtJ?3"c,T"F? . 

?•    Jr  J±?rpr?l  §r. 

In  performing  data  base  manipulations,  the 
INTEF.?HET?H  follows  the  seouence  provided  in  the  seouence 
tables.  The  results  of  the  action  taken  by  the  interpreter 
will  be  displayed  at  the  user's  terminal.  -ny  file 
manipulation  error,  will  be  discovered  by  UCSD  Pascal's 
system.  The  system  will  not  recover  from  this  type  of  error. 
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There  ar»  five  major  procedures  in  INTERPR3TER. 

a.  roN^TTIOM 

This  procedure  gives  the  tuple  number(s)  which 
nest  the  condition  (Qualification)  in  the  user's  reauest. 

b.  OUTP.Y 

This  procedure  selects  the  desired  attribute(s) 
in  the  selected  tuple's)  as  a  result  of  fa)  above. 

c.  rjprsn-p 

* 

*ny  changes  on  data  and  relationships  files  as 
the  effect  of  the  updating  process,  will  he  handled  by  this 
procedure  . 

d.  IMSFPTION 

This  procedure  performs  any  addition  to  the  data 
base,  i.p.,  addition  to  the  data  files,  and  addition  or 
changes  in  the  relationships  files. 
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This  procedure  ^el°tes  the  data  which  the  user 
wants  to  remove  froi  the  data  files.  This  procedure  also 
deletes  or  chafes  the  values  of  the  relationships  files. 

§•  E§lp 

This  unit  is  intended  to  assist  the  user  in  finding 
information  about  ♦he  data  "base,  i.e.,  the  logical  structure 
of  the  data  "base,  an*  provides  on-line  information  on  how  to 
use  the  data  bas<=  system. 


C.   0UrRT  L'NGUAGT 

The  S FCUFL-like  ouery  language  as  previously  discussed  is 
provided  to  the  users  to  communicate  with  the  data  base. 
Syntax  graphs  and  procedures  are  available  in  Appendix  D. 
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VII.   CONCLUSIONS 


To  solve  the  cost  problems  arising  in  the  implementation 
of  data  basQ  svs**=rs,  particularly  ^or  small  amplications, 
the  use  of  microcomputer  systems  should  be  considered  as  an 
alternative.  The  developed  system  has  demonstrated  that 
currently  existing  microcomputers,  using  UCSD  Pascal  as  the 
system  software  and  floppy  disks  as  secondary  storage,  could 
be  corsid°-red  for  small  applications.  Although  the  current 
auxiliary  storas°  caoacities  are  too  smell,  additional  floppy 
disks,  hi^he1-  densities  and  eventually,  hard  dislj:s,  hopefully 
can  sclve  this  storage  problem. 

The  technioue  of  storire  data  separately  from  thQir 
relationships  enables  the  loading  of  all  the  relationships, 
at  least  the  reedei  one5;,  into  ^ain  Terory.  flll  accesses 
involving  th°se  relationships,  can  then  be  improved.  It  is 
also  possible  to  obtain  more  complete  data   independence  and 

to  save  storage. 


43 


APPENDIX  A:  USER'S  MANUAL 


A.  INTRCTUCTICM 

This  data  base  management  system  is  intended  to  provide 
the  mea^s  for  creating,  retrieving,  and  updating  a  data  "base 
in  a  mi crocompvter  based  system  suuportir.s  UCSD  Pascal.  It 
has  three  na.inr  functions. 

1.  Data  base  initialization. 

2.  Data  base  manipulation. 

3.  Providing  helpful  information  on  the  data  base. 

This  system  is  executed  with  the  X(ecute  co^ma^d  at  the 
outermost  command  level  of  U^SD  Pascal. 

X'ecute  ^MICRCDflT*x 

It  displays  three  available  commands  associated  with  the 
three  functions  abo^e.  The  prompt  line 

Command:  C^reate,  H(elp,  X(ecute 

will  be  shown  on  the  screen.  The  user  can  select  one  of  them. 
For  example,  by  typing  "x"  the  system  will  execute  the  data 
base  naniDulation  function.  With  a  SPOUEL-like  auery  language 
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he  or  she  can  communicate  with  the  data  base. 

Before  working  with  this  system,  the  user  is  expected  to 
put  the  system  disk  in  drive  P  ard  the  data  base  disk  in 
drive  1 . 

B.  DATA  BASE  INITIALIZATION 

Tor  creatine  a  data  base  initially  a  special  rroeram  is 
used.  By  typing  C(reate  at  the  command  level,  a  software  unit 
named  CP?AT?  is  invoked  to  serve  that  function.  The  system 
will  automatically  create  the  desired  file  in  the  disk  that 
currently  exists  in  drive  1.  *t  this  level,  it  is  Possible  to 
delete  a  character  on  the  rurrent  line  without  leaving  the 
create  mode  by  back-spacing  over  it.  The  following  steps 
describe  how  to  use  the  system  for  data  base  initialization: 

1.  By  selecting  C(reate,  a  message 

'The  system  is  ready  to  create  a  file. 
Please  enter  your  file  name >' 

will  be  displayed  on  the  screen. 

2.  The  riser  response  would  be 

<file-name><CR>. 
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There  a~e  th~°e  categories  of  file  names: 

a.  A  data  file  name  is  identical  to  an   attribute  name. 
Example : 

NflM5  <crN> 

b .  An  inverted  relationships  file  name. 
Trample : 

^P.^AM3 

c.  ft  non-inverted  relationships  file  name  is  the  name  of 
*he  relation. 

Example : 

EM?  ^CR> 

A  string  of  up  to  9  printed  characters  in  which  the 
first  character  is  alphabet,  is  acceptable.  Tr  case  of  an 
invalid  file  name,  the  user  is  asked  to  repeat. 

3.  .fl  valid  nan"p  will  give  the  prompt: 

"Anv  non-retrieval  attribute  to  be 


dp 


entered  in  this  file?Y-'M. 

The  user  has  a  chance  to  f=nter  his  or  her  non-retrieval 
data-Item  value  only  in  the  file  of  the  key  attribute. 
Thus,  the  user  ray  type  'Y'  if  he  or  she  wants  tc  or  '*«'  if 
he  or  she  wart  to  nut  them  in  another  file. 

4.  .J  'Y '  will  cause  the  next  prompt: 

"Please  e;ivo  its  name." 
The  user  response  is  like  2a.  above. 

5.  The  system  asks  for  the  data  type: 

'Tata  type?  [INT'e^er,  STR(ing,  SFT .  ] " 

IMT'e^er  means  the  data  are  of  type  integer,  STP^ins  are  of 
type  string  and  SET  are  of  type  set  of  positive  integers. 

6.  The  user  response  would  be 

^data  typeXCT^ 

In  the  case  of  a  non-retrieval  attribute,  only  the   type 
of   its   retrieval  attribute  is  entered.  The  non-retrieval 
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attribute  data  value  is  considered  to  be  of  type  string. 
7.  The  next  prompt  will  be  displayed: 
"Please  enter  your  data. 

If  a  r.on-retrieval  attribute  exists  in  the  key 
attribute  data  file,  the  enterin?  lata  will  be  interpreted 
alternately-  i.e  retrieval,  non-retrieval,  retrieval,  and 
so  on.  The  format  for  this  is: 

<retrieval-dataXC7?> 
<non-retrieval-data><CR> 

9.  a.  control  C  will  terminate  the  system  with  the  following 
message . 

*A   file   named   has   been   entered   with   .... 

records." 


C.  DAT*  ?*SV   MANIPULATION 

To  communicate  with  the  data  base,   a   SEQUEL-like  Query 
lan^uase   is   used.   The   system   intercepts  user's   reauest 
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written  in  that  lansuaffe,  interprets  it,  ar.fi  Derfo^ms 
necessary  operations  for  data  manipulat  i or  purposes.  Error 
messages  will  "be  displayed  on  any  syntax  error  or  data 
manipulation  error,  and  the  user  is -asked  to  repeat.  I/O 
errors  however,  will  he  handled  hy  UCSD  Pascal.  If  I/O  errors 
occur,  the  system  must  he  reinitialized.  At  this  level,  the 
hack  space  character  is  use*  to  delate  a  character  on  the 
current  line  without  leaving  the  execution  mode. 


The  following  are  steos  in  usir?   the   system   for  data 
manipulation . 

1.  Type  X'ecute  at  the  command  level.  The  following  message 
will  he  displayed : 

"The  system  is  ready  'or  data  manipulation. 
Please  descrihe  your  data  hase." 

The  user  user  is  expected  to  describe  the  data  hase  i.e., 
all  the  relations  and  attributes  where  he  or  she  wants  to 
work  on . 

2.  The  next  orompt : 

^elation  ==*=>  ' 


49 


as'^s   the  user   to   describe  his  or  her  relation.  The  user 
resDor.se  would  he 

<rel-name>(<att-name>{  ,<'att-namo>}  )<CrO  . 

^races  '{})  i^ply  zero  or  more  repetitions. 

3.  The  sys^en  responds  with  the  next  prompt: 

"Attribute  ====>" 

The  user  response  would  he 

<att-nane>,<status>,<type,>T<CR><att-name>  ,<status>,<type>} 
[','  or  '.'VCIO 

The  ','  aH  '.'  ar°  optional.  They  are  used  for 
describing  another  relation  and  terminating  the  description 
respectively.  Without  ','  or  '.',  the  prompt  '====>"  will 
be  displayed  for  the  next  attribute. 

4.  Frterir.g  a  '.'  causes  the  prompt: 

"Relation  ===>" 
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and  step  2  and  3  above  have  to  be  reseated. 


5.  The  system's  ■'•espouse  on  '.'  is 


Preparation  is  completed. 

Now  you  nay  give  your  command. 


6.  The  system  now  is  ready  to  intercept  any  user's   request 
(command)  written  in  a  S^OU^L-l  ike  query  language.  Format! 

^co^mandX  ^r'0^ 


7 .  Results  or  outputs  are  displayed  on  the  screen  for  each 
succesful  d.ata  manipulation,  followed  "by  a  "===>"  which 
indicates  that  the  system  is  ready  for  the  next  command. 


3.  Frror  messages  will  he  displayed  for  syntax,  data 
manipulation  or  I '0  errors,  either  during  data  base 
description  or  manipulation.  Then  the  user  is  asked  to 
redescribe  his  or  her  data  base  or  reoeat  his  or  her 
request.  For  examole. 

,  ?Mpf FMP#,N«ME,EFPT#,  SKILL  <CF.> 
will  cause  the  message 
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Svntjnl     ")       is    needed. 


£?ives    the   ^essa^e 


Undefined  relation.' 

9.  I/O  errors  are  handled  by  LTSD  ^ascal .  If  they  occur 
control  is  transferred  to  UCST  Pascal,  the  system  auits  and 
has  to  "be  reinitialized  "by 

Xfecute  <MTCP0D4T'1E.«S'?> 

at  the  command  level  of  U^SD  Pascal.  Then  procedures  fron 
step  1  have  to  he  followed. 

10.  Control-C  termir.at°s  the  data  base  Tian  ipulat  io^ 
function  with  the  message: 

Data  hase  rranipulatio^  has  been  completed. 
Control  is  transferred  to  UCSD  Pascal  system. 
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D.  HFLP  FUNCTION 

This  svstem  is  also  provided  with  the  help  function, 
which  helps  the  user  to  obtain  information  about  the 
currently  existing  data  base.  It  will  list  all  the  existing 
relations  ard  attributes  including  their  status  and  types. 

By  selecting  H(elp  at  the  command  level,  the  help 
function  is  performed  and  the  information  will  be  displayed. 
For  example 

Rel  a  t  i  on  :  ?MP  ( ™?#  ,  \rAME ,  DE?T#  ,  SI  I LL  ,  S  AL  ,  A.DDR ) 
EMP#,KEYf MBR 
NAME.RETR.CE 
DF^T^RFT15,  NPP 
SKILL fRETRfCH 

S  ftLfSETS  ,  MT|P 

»DDR,NONR,CH 

lelati on :  CHILD (FMP* , CHNAME ,SEX,AGE ) 
FMP#,CKFY,NER 
CHW*MEf CFFY.CE 
S^T,RFTR.P? 
AGE.RETR.NBR 

Control-C   terminates   the  helD   function   and  transfers 
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control  back  to  the  UfSU  Pascal  system 
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ftppy^DIY  B:  QUERY  LANGUAGE 


A.  INTRODUCTION 

A  stand-alone  SEQUEL-like  anew  language  is  used  in  this 
system.  It  is  intended  to  provide  the  retrieval  (SELECT)  and 
storage  fUPDATE,  INSERT,  DELETE  operations  on  the  existing 
data  "base.  Sorre  of  th^se  have  not  b»en  implemented 
completely,  For  creatine  a  new  lata  tase  or  file,  a  special 
program  is  used.  (See   Data  ^ase  Initialization). 


3.  RETRIEVAL  OPERATION 

I-  Si-nple  ^_°tr_ieval 
examples  r 

a.  Cet  all  employees'  numbers  and  names 

SELECT  EW?#,N^E 
FROM  EM?. 

b.  Get   all   err-Dloy°es'   skills. 

SELECT  UNIQUE  SKILL 
ER0M  EM?. 
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c.  Get  f ill  1  d^taile^  information  of  all  employees 
SELECT  * 


?.  Qualified  Retrieval 

let  the  employees'  numbers  and  names  in  department 
no.  100  with  salary  greater  than  3000. 

SELECT  EMP*,N.«MT? 

vR0M  EM? 

WHERE  I)EPT*  =  100  ANT  SAL  >  3200. 

3«  Retrieval  With  Ordering. 

i 

<Tet  the  fenale  children's  name  and  age  arranged  in 
descending  order  of  age. 

SFLFCT  CHNAME,  »GE 
t^ROM  CHILD 
WHERE  S EX =' FEMALE' 
ORDER  ^T  inrll   D'SC  . 
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4  •  5?^r^?lr§l  Using  Nested  Mapping 

Get  all  employees'  names  who  have  female  children 

SFLFCT  N*ME 
FROM  EM-3 
WHFRE  FMP#  IN 

SFLFCT  FM?# 

?POv  CFIL^ 

W^'RF  Svl=  'FFMfl. LF ' . 


5-  ?etri_eval  TJsinsr  Several  Levels  Of  Nesting 

Get   the   ieDartment   name   of  the  employees  who  have 
female  children. 


SFLFCT  DF?TNaMF 

'ROM  DFPT 

WHERE  FFPT*  IN 

SFLFCT  DFPT* 
FROM  F^P 
WHFRF  ^VP#  IN 

SFLFCT  EM?# 


FrOM  CHILD 

WHERE  SEX='FEMALE'. 


§•   Retrieval   tJs_ins  JL  Nested  Manp_in,?  Wi  t_h_  Inter  bio  c^_ 

Reference . 

"et  employees'   name  who  has  never  teen  in  department 
number  1?P . 

SELECT  MAMS 

FROM  ?M? 

WHEHE  1?!?  MOT  TM 

SELECT  DEPT* 

FROM  "n^PT 

WEE-0?  F^"?tf  =  EMP.EM?-. 


2'   2§iri§val  Using  I   Mes_ted  MaoDing,  With  The.  Same  Tahle. 
Involved.  In  iQlt   E  Lacks.. 

Get  the  employee  runbers  of  employees'  who  have 
children  of  the  same  a^e  with  at.  least  ore  of  the  children  of 
the  employee  with  number  £76*72. 


SELECT  UMIOUE  EM?# 


v^qm    CHIL1) 
tfTTERE    ?GE    IN 

SELECT  'C-E 
EROM  C^ILD 
WHERE  EM?# 


=  '07672' 


8.  retrieval  Irvglvins  S°t  ^cmuarison 


Get   supplier   ranes   for   suppliers  who   supply  all 


Darts . 


SELECT  SNAME 

ERCM  S 

^tTT-^r  (SELECT  P# 

WHERE  S#  =  S.S#) 

(SELECT  ?# 
ERC^  P) . 


9.  Retrieval  Involving  *IVUS 


Get    eTinloyees '   numbers   who   have   no   children 


^Q 


(  SELECT  EM?* 

^INUS 

1  SELECT  EMT># 
FROM  CHILD) 


1?L •  Retrieval  Involvirg  £n  Enumerated  Tup_le_ 

Get  employees'  rumbers  who  have  the  same  skill   and 
salary  as  e-nployee  number  '07672'. 

SELECT  EK°# 
v^r,M  "CMp 

WHERE  <S*ILL.SAL>  IN 

SELECT  SrILL  ,S»L 

EROM  EMP 

WHERE  EM?#  =  '07672'. 


C.  STORJSE  OPrR*TIOM 


1. Update 
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a.  Simple  Update 

Hhanse  the  desartment  number  of  employee  numbered 
07672  to  210 
UPDATE  P^P 

SET  D??T*=210 
^TTTr^r  -pMP/i= '^7^72 ' 

b.  P.epea^e''  Update 

Change  the  department  number  to  21?  and  the 
salary  to  3<*00  of  the  e^uloyee  numbered  07672 
UPDATE  E^P 

S^T  DPPT#=210, 
SET  SAL  =3000 
yvvvv   EMP*=  '07^72' . 


c.  Multiple  Update 

Suppose  CEIL-!)  includes  an  extra  attribute  PPEM 
(premium,  say  10  percent  of  his/her  parent's  salary  per  child 
under  20  years  old.)  «n  increase  on  an  employee's  salary  will 
increase  his/her  children's  uremium. 

TTpT)5'T1v     TTVD 

SET    SAL=300 

WREPE   Y^?-= '77672 ' . 
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tjP^a^t    CHILD 

SET    ?R3P/I=3000 

WE^RT    ?*?*=  '07672'    AND    HG?    <22. 

2.  Insertion 

Add  an  employee  named  JOMES,  C.F.  with  employee's   number 

800  in  department  200  as  the  secretary  with  salary  3000. 

INSEF.T  IMTO  rvD 

C^^W,  'JON^S  C  .H',22*.  'S^CRTTARY',3000>. 

3.  Deletion 

a.  Qualified  deletion 

Delete  CHILD  if  n?f=  than  20  year  old. 

D^LETI  CHILr 
V/HTPF  *.nT?    ^   Z? . 

h.  Unqualified  deletion 

Delete  a"!l  children. 

^•PTTT-p  CHILD. 
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LIBRARY  FUNCTIONS 
!•  I'ir.cli0!!  I"  !*=.§  S1IICT  Clause 

a.  Get  the  t^tal  number  of  employees. 

$vruvrT    COUNT  (*S!MT>#) 

FROM  EM?. 

or 

SELECT  COUNT(*) 

b.  Get  the  total  number  of  employees  who  currently  have  children 

SELECT  COUNT (UNIQUE  EM?*) 
tpov  CHILD. 

?•  I^nc ti on  In  The  Select  Clause 

tfitk  i   ?i?±ic_ate 

Get   the   total   number   of  emoloyees   who  have  female 
ildren  . 


F.7, 


SELECT    C0UNTVIV?^ 

VRCM  C^ILD 

WHERE  SEX  =  'FEMALE'. 

?.  Function  In  The  Predicate 

Set  the  employee's  mm  hers  who  have  the  maximum  salary 

FROM  EM? 
WH'RF  SftL  = 

SELECT    MAX (SAL) 

F^OM    FWT3 . 
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j  >  r  »    b-J  =e    i  v-  -ic  r  i  (..  r  i  ,   i, 


Mcc 


b  lock 


->  re  I  di  t  ion 


r 

i    c 

\J 

re 

o>  t  i  o  n 

K     \L, 

r 

relation 


-^     re<-  (Jesc 


-i  t  t-ciesr 


"^ 


oitt-desc 


rel-desc 


id 


:>-<d-, 


iiT 


j t f.desc 


<n 


d       ) 5 


-M 


Stdt 


kind 


Fig.     6 - 1 .    Syntax   g?r a .:  h    for    describing    the    data    base 


APPENDIX  C:  GLOSSARY  OF  TERMS 


1.  Attribute.  A  terrr  referring  to  a  column  of  a 
relational  file  in  a  relational  lata  base  system. 

2.  Attribute  file,  a  file  which  contains  values  for  one 
attribute  only. 

3.  Cont-mi-c.  A  control  key  used  for  terminating  a^i 
operation  by  pushire  CTRL  ani  C  buttons  simultaneously. 

4.  CP/M.  «n  operating  system  used  for  Intel  8030  and  Z-80 
microprocessors  . 

5.  <CR>.  Carriage  return  key. 

6.  Data  independence.  Immunity  of  amplications  to  change 
in  storage  structure  and  access  strategy,  which  implies  that 
the  apDlications  concerned  do  not  depend  en  any  one 
particular  storage  structure  and  access  strategy. 

7.  Entity.  Item  about  which  we  store  information.  For 
example,  employee's  n^me,  address,  etc.,  are  the  entities. 

3.  Entity-identifier.  A  >ey  which  uniquely  identifies  an 
entity  or  data  concerning"  that  entity. 

9.  Entity-identifiers  file."  A  file  which  contains  the 
entity-identifier  attribute  plus  non-retrieval  attributes. 

10.  Inverted  file.  A  file  which  contains  the 
entity-identifiers  associated  with  the  values  of  certain 
attributes . 
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11.  Inverted  relationships  file.  A   file  which   contains 


the 


values 


0  + 


retrieval   attribute   a*»d    the 


entity-identifiers  of  the  logical  or  user's   file  associated 
with  the  values  of  that  retrieval  attribute. 

12.  Non-invented  relationships  file.  A  file  which 
contains  the  relationships  of  all  the  retrieval  attributes. 

13.  Prcmnt  line.  fl  display  at  the  terminal  which  shows 
the  current  vr,*e  and  the  options  available  for  that  mode. 
Available  in  the  UCSD  Pascal  system. 

14.  C'-:erv  language.  fln  Enslish-like ,  complete  programming 
language  for  both  obtaining  end  manipulating  data  from  a  data 
base . 

15.  Relationships  file.  A  file  which  contains  the 
relationships  o^  the  related  attribute  files,  in  terms  of 
serial  numbers  or  record  numbers. 

16.  Separation  technique.  *  techniaue  to  develop  and 
store  the  relationships  within  the  logical  or  user's  file 
separately  fro^  the  data. 

17.  JCSD  Pascal.  A  software  system,  highly  machine 
independent,    usetf    for   stand-alone   microcomputers   or 

minicomputers . 
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DOG  l-T'oCT 
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query- express I K     )  ) ft 


v 


-J      litera 
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se*-  c!aus<*-l  ist 


~>\     SeT-C  \caU  'i.C    r 


r 


set-clause 


KD-1 


Set-cUuse 


setV 


V 


^<(> 


I 

>Hljer'j-<2x  press 


T^ 


express'on 


ord-SP'Zc-l  i  st 


field-spec 


field-sps  :    f \ 


field -spec 


i  a 


id 


insert- spec 


-f  query -a*  pr^ 


^ 


iterol 


i  t  e  r  a  I 


i  t  -  Topi  e 


± 


i  t  -  t  upl  e 
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entry-l  i  st 
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i    *,»*»»  *i»  *i»  *^»  ?,-»  *r*  *p  *.**i*  "i*  'i*  *>■*  *c  nn  *i*  *»*  ***  '«*  'i*  »i*  *»*  *»*  *i**i*  *i*  *i»  *i*  *i~  *t*  *r  *.*  *»*  "i~  *i*  *i*'.*  *t"  *»*  *i*  *r»  n*  *»**i*  ***  '•"•  *p  *r*  *i*  *i"  *i*  "(''i*  ~f*»o  »i~  *r*  *i"  *f  *»*  1*  'C 
(  * 

f*  THIS    UNIT    IS    INTENDED   TO    CREATE    INITIAL    D»T*    B*SE.  * 

j*  rp^v    USER    IS    ftSE'D   TO    GIVE   THE    FILE    MAivS    AND   THE    DATA  * 

(*  TY?T    (SEE   USSR'S    M*NU4L)  * 

r*  * 

(V*  »'*  — '*  -'"  *V  "■''  *■' '  ■"'  ■  *  '  •**  »'■*  *'-  ***  »'*  **■*  *■'*  »'»  »**  -  *  ■*■'*  •*-  »'*  ^^  "^  •>'*  ***  ■»'*  *•*  *•'■*  **•»  *&*  »'*  •>**  *•*»  *•*  *?*•*  ■-1*  ■«'*  *A*  •■'*  »**  •'*  -'*  -'■*  ***  ■»'»  ***  *'■*  J *  •»*■'  -•''  ,J"»  *•'*  »V  ***  *■'*  "■'■'  -'-  -'*  V'  «■''•  *'* 
?4»  *,»  *!»  *(*  »,»  *|*  *|»  *t-  *,»  »i»  *,*  ?,»  ••t""  >J*  rf|»  *,»  7(»  *,»  »,»  *|*  *,»  *i»  *,-•  »,»  *|»  y^%  *!»  *,.*,»  »t»  ?^*  *(.  ?#»  *,»  *,»  ?,••  *f»  f^i   »(«.  ^,~  *,»  *y*  *f-  *■,-.  »p  *j*  *j*  #p  »(•«  *p  <>,*  *^»  *^»  ^,*  ^»  *,%  >t*  «,.  j^*  ^,-  »|>  >(• 


UNIT  create; 

INTEEF*  CE 
CONST   MAXT 
TYPE 


=  50J  (*  MAXIMUM  NUM3E?  OE  TUPLES   *) 
(*     IN  ON'  RELATION         *) 


>T<\J-D-p 

=  1. .m«xt; 

INNON 

=    RECORD 

I^ATa    : 

INTEGER 

NONI       r 

STRING 

end; 

STNCN 

=    RECOPD 
SDATA. 

NONS       : 

STRING 

end; 

(*  RECORD  WICH  CONSISTS 

(*  OE  ONE  INTEGER  KEY 

f*  AND  ONE  NON-RETRIEV.ftlLE 

(*  ATTRIBUTES 

f*  RECORD  WHICH  CONSISTS 

(*  OE  ONE  STRING  KEY 

(*  AND  ONE  NON-RETRIEVABLE 

(*  ATTRIBUTES 


^ 


SETREC   =  RECORD 


setdata  :  set  of  tnbr 
vnd; 


(*  iECOHD  OE  VARIABLE   * 
(*  OE  SET  OF  INTEGERS   * 


VAR     INTEILE  :  FILE  OF  INTEGER; 

STR^ILE  :  ^ILE  OF  STRING; 

SSTFILE  :  FILE  OF  SETREC? 

INON  :  *ILE  OE  INNON; 

SNON  :  *ILE  OF  STNONJ 

?ROCEDUR'r  CHEAT'S; 

IMPLEMENTATION 
VAR  EEC, 

NUM  -.   integer; 
CH   :  char; 

INPUT, 

EN.amttt   string; 

procedure  creates; 

PROC'DURT  ENTERINT(F  :  STRING);  (*  CREATE  FILE  OF  INTEGER  *) 
BEGIN 

REWRITE^ I NTEILE.T  ) ; 
p <v  r    :  =  <?. ; 

WHILE  NOT  EOF(INPUT)  DC 
BEGIN 
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$vvy'  INTFILF.REC  );    G^T^  INTTILE); 
WRITE (  '=>'); 

jit    mot    TO-7 (INPUT)    THEN 
BEGIN 

S^K(INT,,TL1^R^0,!  :    PUT'  INTFILF); 
R"EC    :=   R]?C+1 

END 

end; 
clos^intfile.lock) 

ttnjt);   f#  ENTERDATA  *) 

PROCEDURE  ENTFRSTRfF  :  STRING);  (*  C^E^TE  FILE  OF  STRING  *) 
BEGIN 

-EWRITE'ST^FILE.FK 

WHILE    NOT    EO?( INPUT)    DO 
REG  IN 

STK'STRTILE.REC) ;    GET' STR^ILE^ : 
WRITE('=V'');    PE«DLN(  STRFILE")  ; 
JV    NOT    VQ?( INPUT)    TwrN 
BEGIN 

SFET'STRFILE,REC ) ;    PUT' STRFILE) J 
RFC    :=    REC+1 

evd; 


end; 


fnd; 

closed st^filetlock) 


PROCEDURE  ENT'RSETd'  :  STRING)?   (*  CREATE  FILE  OF  SET  OF  *) 
BEGIN  (*       INTEGERS         *) 

PEW^IT^SFT^ILE.F); 
R7r    :=  0? 

WHILE  NOT  FOE' INPUT)  DO 
"P  vn- 1  \] 

SEEK(SETFILEtREC ) J  GET ( SETFILE  ) ; 
WvlTEf  '=>'); 
WITH  S^TFIL1^  PO 
RFGIN 

se.tvdat*  :=  n ; 

RFPEA.T 

read(num);  setdata  :=  setdata  +  [numl 
until  foln( input) 

end; 

jp  MOT  vOv! INPUTS  THEN 
BEGIN 

S^FT^SETFILE^EC);  ^UT'  SETFILE  )  ; 
rvc    r=  REC+1 

end; 
end; 
close ( setfile, lock) 

end; 
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PROCEDURE  INJT-^'^NO^F  t  STRING);   (*  CREATE  EILE  OF  RE  CORES  *) 

BEGIN  f*   WICH  CONSISTS  07  ON?   *) 

REWRITE- INOM.E);  (*   INTEGER  AND  ONE  NON-   *) 

RSC  :=  0J  (*  RETRIEVABLE  ATTRIBUTES  *) 

WUIIT  MOT  VQ?( INPUT)  ^0 

BEGIN 

SEEK(IVON.^EC);  GET(IMON);  WRITE('=>'); 
WITH  INCN~  DO 

BEGIN  READLNf ID»TA ); 

V?ITE(  '  =  >');  BEADLN(NONI) 

7nd; 

IT  NOT  EOE( INPUT)  TIEN 

BEGIN  SFEK(  INON  ,?EC)  »  PUT(INON)» 

0  v  f  .  =  ^"pn  +  i 

END 

end; 
c10swin0n,  lock) 
end; 

PROCEDURE  STFsNDNOvfF  :  STRING) ;  (*  CREATE  EILr  0?  RECORDS  *) 

BEGIN  (*   WICH  CONSISTS  OF  ONE   *) 

REWRITE' SNON,F>;  (*    STRING  *ND  ONE  NON-   *) 

REC  :=  21  (*  RETRIEVABLE  ATTRIBUTES  *) 

W^IL^  NOT  ^O^C INPUT)  DO 

BEGIN 

SEE7 'SNON,^EC )!  GET(SMON);  WRITE ('=>')? 
WITH  SNON~  DO 
rrrrTN 

READLN(SDATA) ? 

WFITE( '=>');  ~E*DT,N(NONS  ) 
END? 
IF  NOT  EOF (INPUT)  THEN 

BEGIN  SEEK (SNON, PEC) ?  PUT (S NON); 

REC  :=  REC+1 
END 
END? 

close(sncn,lock) 
end; 


BFGIN   (*  CREATES  *) 
WRITELNJ 

WRIT~LN( 'The  systen  is  ready  to  create  a  file'); 

WF.ITE(  'Please  enter  your  file  name >')? 

READLN(INBUE); 

itmsme  :=  CONC  »T(  '#5:  ',INBUE)  ; 

WRIT*( 'any  non-retrieval  attribute  entered  here?  Y/N   ->'); 

R^sD'CF);  writeln; 

IE  CH  =  'Y'  THEN 
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W?ITT( 'Please  aive  its  name >'); 

WFITFIn;  V*ITE( 'Data  type?  INT(e*er,  STRfing,  SPT .  -V); 
READLN(INBUT) ; 

WRITTLN( 'You  T>ay  enter  your  data'); 
CAST  CH  CF 

'N  '  :  I?  IN^UT  =  'INT'  '"FIN  ^NTEP INT ' FN a^t) 

ELSE^IF  IN3UF  =  ~'ST?/'THSN  ENTERS'TR(  TNAME  ) 
ELSV  I?  INPUT  =  'SET'  THEN  ENTERSET ( ENAME ) 
ELSE  BEGIN 

WRITTLN('Tail  to  create  a  file'); 
EXIT(CFE.ATES) 

end; 

'Y  '  :  IF  IN^UF  =  'INT'  THEN  INT»NDN0N(7N *ME) 

ELSE  IF  IN?UT  =  'ST?.'  THEN  STRANDNON  ( FNAMS ) 
ELS^1  PE3IN 

WRITELNl 'Tail  to  create  a  file'); 
EXIT' OPIATES) 
FND 
'NT): 
WRITELN(  'Tile  with  na-np  ',F\'AYE,'  has  been  created'); 
WRITTLNC  'with  ',R?C:4f'  records') 
END?   (*  CRT«TTS  *) 
END.  {*   UNIT  CR^aT7  *) 
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*  T^TS    UNIT    IS    INTEND7?    TO    GIV^    THE   USER  * 

*  IN^OR^TION    5T!OUT    T^E    EXISTING    D!T'    R*SE    s  ND  * 

*  HOW    TO   USE    THE    SYSTEM 

*?  *** n*  t¥  *** *p *f  <i*  *r*  nr*  n*  i*  *i*  *n  *i*  *i*  *r*  i» *h  n*  n* *t*  *c* ?r  *i*  i-  7»*  *r*  *v  *? n*  *r  n-'i*  t  n*  it  *r  't*  *i*  i*  *i* *i*  ***  ^-  *i*  v  *i* *>*  ***  *r **•  *i* 


UN' it  helps; 

INTEREfl  Cv 

VAR   TXT  :  TEXT; 
PROCEDURE     H^LP; 

IMPLEMENTATION 

VAR  I  ,  R?n  :  INTEGER? 
Cw     :  CH*P; 
ENAME   !  STRING; 


PROCEDURE  HELP; 

PRCE^UR*  R74DTXT(S 


STRING); 


BEGIN 

r-pSttt^tXT,S);  I  r=  0; 

Rr?E  aT 

W^IL^  NOT  ^OLN'TXT^  ^0 

^EGIN  READ (TXT ,CH)t  WRITE; CH)  END  J 
RE»DLN(TXT)»  I  t=  1+15 

writeln; 

UMTIT.  <T  =  2?)  0*  (  FOY(TXT)); 

I?  NOT  ^OE'TXT)  THEN 
BEGIN  READ(CH); 

IE  CH  =  '  '  THEN  I  :=  0  END; 

close'txt.locx) 
end; 

PEGIN       (*    HrL?   *) 

WRITELN;    WRITECDfata   Bas^t    U(ser   Manual    -> ' )  5 
READ(CH)'  writeln; 

C?SE    CP.    Ov 

'  'd'  :  7name  :=  'database';  (*  30th  eilss  are  stored 
'u'  :  tn»me  :=  'userm«nual'  (*    in  system  disk 

end; 

Rt  &DTXT  ( "^N  AM"^) 

end; 

E*'D.   f*  UNIT  FPLPS  *) 


*) 
*) 
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wjvx    USSR'S  REQUEST 
QUERY  LANGUAGE. 
EACH  SYNTAX  ERROR 
vpvuv.    I/O  ERROR , 
D-PASCAL  SYSTEM.  IE 
TS  ANT  HAS  TO  BE  ^E- 

T,  Tur  USER  IS  ASKED 
3«SE  WHICH  HE  OR  SHE 
THIS,  ALL  THE  IN- 
f?aN  ^e  LOADED,  in  th: 


* 


unit  p«rse; 


interface 

CONST   MAXATT  =   <=; 

MAXRFL  =   2; 

MAXFLD  =  15! 

MAXPEE  =  1^» 

MAXT^L  =  5^: 

MAXSYMS  =  15; 

MAXINV  =  l^fl 


(* 

(* 
(* 
(* 

f  *  M  S  X  . 

(*  MAX 


M  5  TIMU^ 

M*XIMUM 


'RIEUTES  IN 
IN  ? 


NUMTSFP.     oE      fiT 

RELATION 

NUMBER  OE  RELATIONS 
TATA   BASE 
Maxi^UM  NUMBER  OF  *LL  ATTRIBUTES 
MAXIMUM  NUMBER  OE  D»Ta.  ACCESSES 
MUM"Ptp  OE  TUPLES  IN  *■    RELATI 
NUMBER  OE  OPERATION  SEOUENC 


(*  MAX.  TOTAL  NUMBER  CE  RETRIEVABL] 
(*  DATS  ITEMS, i.e.  TOTAL  NUMPFR  OF 
(*    INVERTED  FILES'  RECORDS 


A  *) 

j 

*) 


*) 
*) 

ON  *) 
E  *) 
*) 


TYPE 


SYMBOL 


TPLMO 
EIELDNO 

STTTUP 
STATUS 


REEPEC   = 


(NUL,  I 

EOL.  N 

CMA  ,  C 

INTOSY 

O^SYM, 

INTRSY 

MINSYM 

ftSCSYM 

NCTIN, 

«TTSYM 

1.  .MAXT 

1.  .M»XA 

S^T  OE 

(KEY,  C 

(*  KEY, 

RECORD 


DENT. 
EO,  LS 
LN,  PR 
M,  UPD 
^NDSY 
M,  UNI 
,  SUMS 
,  DESS 
STSYM, 

): 
pl; 

tt; 
tplno; 

YVV  f      p 

COMBI 

NON 


N*"R,  PLUS,  MIN,  STAR,  SLASH, 
S,  LEO,  GTP,  GEO,  LP'^N,  RPRN , 
D,  OUOT,  SETS.  SELSYM,  IN5SYM, 
SYM.DELSYM,  UNIOSY^,  WHERSYM, 
M.  NOTSYM,  CONTSYM,  INSYM, 
SYM,  MINSSYM,  AVGSYM,  MAXSYM, 
YM,  ^NTSYM,  ORDSYM,  BYSYM, 
YM.  SETSYM,  FRMSYM,  NOCONT, 
KNDSYM,  CCND,  LOD .  FELSYM. 


FTP  ,  NON?.ETr  ^  ; 
NED  ^EY," RETRIEVABLE  AND  *) 
_  p^ipi  pv  a  "RLE  *) 

f*  RECORD  OF  REFERENCE  *) 
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TBLREL 


ATT 


INVERT 


RNO, 

1   9| 

{  RELATION  NIC.   *^ 

a  n^ 

INTEGER  ' 

)   , 

c  ATTRIBUTE  NO.  *) 

tct 

:  symbol; 

(*     FUNCTION 

CASE  SYMBOL  OF 

'  *! 

VALUE       *) 

S?TS  ' 

:  '  N  a  y"!?S  r 

SET 

'  OF  FIELDNO)  \ 

OUOT 

:  'QUOTS  : 

string) ; 

N-RR   - 

:  'VAL    : 

INTEGER) 

END; 

F^CO^D 

f*  INDORSATION  OE  RELATION  *) 

NAMED 

:  STRING; 

(  * 

RELATION  NAME    *) 

BASE    : 

integer; 

(* 

ITS  ATTRIBUTE'S   *) 

'  # 

BASE  LOCATION  IN  *) 

r* 

ATTRIBUTE  TABLE   *) 

SIZE 

:  INTEGER 

(* 

NUMBER  OF  *TT    *) 

FND? 

RECORD 

(#  INE 

OEMATION  OE  ATTRIBUTE.  *) 

a.TN 

:  STRING; 

'  Sp 

ATTRIBUTE  NAME    *) 

ST  ST 

•  status; 

FIN!} 

:  symbol; 

(* 

STRING  OR  INTEGER   *  ) 

ft^TlT? 

r* 

B4SE  ADDRESS  AFTER  *) 

r* 

BEING  LOADED  INTO   *) 

(* 

MAIN  MEMORY        *) 

SI  7 

•  I  NT^G'-R 

( * 

NUMBER  OE  RECORDS   *) 

(* 

LO!DED           *) 

end; 

^ECO*D 

r  * 

SVT    OF  TUPLE  NO.    *) 

SETMO   : 

SETTUP 

1   # 

OF  ASSOCI  '^TED  DATA  *) 

end; 

(* 

ITEM               *) 

VAR     SY^,  'UN",  0"M  :  SYMBOL? 
A,  B,  C.CX,  M.ERR, 
I,  J,  K,  P,  TT.TOP, 
CC,  KK,  LL  ,  NUM  :  INTEGER; 

X  :  interactive; 

CUOTE^.OSTR. 

STR,STRG, 

FNA.MF,  PELWAME  :  STRING; 

ATTS     J  STT  OF  FIELT)NO; 

ST     :  status; 

BELTRL  :  ARRAY  [1 . .MAXRELl  0?  TBLR^L;  (*   RELATION  LIST 

ATT3L  :  ARRAY  [1 .. M »XFLDl  OF  ATT;    (*  ATTRIBUTE  LIST 

SEOTBL  :  ARRAY  [1 . .MAXSYMSl  OF  SYMBOL?  (*  SEQUENCE 

INVT3L  :  ARRAY  [1  .. MAXINVl  OF  SETTUP J   f*  T«3LE  OF  SET 

(*  OF  TUPLE  NO. 

TEM?  :  STRAY  fl  .  .  MiXATT"1  OF  STRING; 

INS  :  REFREC; 

REETBL  :  ARRAY [1 . .M AXREF]  OF  REFPEC;   (#  LIST  OF  REF  . 

ANYREL  :  FILE  OF  INVERT? 

»LL,  { *  ALL  ATTRIBUTES  NEEDED 

NO ERR,  (*     NO  ERRORS 

NCCOND  :  BOOLEAN;  (*   NO  QUALIFICATIONS 


*) 
*) 

*) 
*) 


*) 

*) 
*) 

*) 
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procedure  initialize; 

PROCEDURE   ?^"5rr; 
PROCEDURE  rRROR(S    :    SYMBOL); 
PROCEDURE  SCANNER? 

procedure  ststem^nt; 
implementation 


CONST 


TYPE 
VAR 


WRDSIZE 
NORV 

NMAX 

STRG1? 

CH 

PEC 

WORD.  ID 

RWD 

WSYM 

SSYM 

LINE 


26 

10 
p  a 

IN 
ST 
AR 
ftP 

AR 


f#  M«XIMUM    SIZE    OE    IDENTIFIER 

f*  NUM^E^    OE    RESERVED   WORDS    IN 

f*  QUERY    LANGUAGE 

C^ED    A^P.AYri.  .WRDSIZEl    OE    CH'?; 

ar; 
teger; 

?AY[1  .  .NOR*'1 


*) 


PAYfl .  .  NORWl 

5.Al[CH3?.]    OE 


OE  STRG10J 

o^  symbol; 
sy^pol; 


TED  A?.RAY[l..e0]  OE  CHAR 


'    V'  ■*''■  * '*  » '-  ***  *■'*  *■**  -'"  •'»  V*  **»  *'■•*  -'-  *'*  ^*  -''  -'''•  »V  "*■*  -1-  ^*  "•'•  »'*  -*■*  ■>''  ^*-*  "J'*  *'"  «■**  »'■*  >V  »*. 
*r  i*  *r  *p  n**i-  *r  n**v  ***  -v-  *t*  *p  *v  *.*  i-  7i*  ***  i-  t  *P  *i*"*i*  nr  *.s  "i*  -i*  *t*  *v**-r*  *r  *.' 


»>»  j»  j-  •'» . 


f*  INITIALIZE  THE  SYSTEM  WITH  RESERVED  WORDS',  SYVTOL'S,  *) 
(*  SPECIAL  CHARACTERS'  AND  SOME  INITIAL  VALUE  DEFINITIONS  *) 
<  *  # ) 

/     %!•>  *'•*  J*  *'»  O-  v'*   •.'*  ■*'-  ***  0»»  »J*  -.'.»  •.*»  »•*  *JU  •,!*  *.**  «'.*  »•<  «JU  O*  «**  ■»*,»  •.>*•  O*  »•*  ->'-  *»*  •***  *'*  ■«.'»  •.!*  V*  JU  «.•*  J*  •«•*  «J*  «J*  ***  *•*  »'*  v**  »•*  ^.'*  »t*  J-.  *j>  „i*  »i*  „*„  ..**  .,'»  .,  *  «.',  »t,  ki^  »(,    \ 

;    *i*  'i*  'i*  -t    '!"»»  -i"  *.*  Vttvt  *i*  *<*  "**  'i*  *i-  *i*  *■»-  *>  *r  *p*»*  'Y-  *p  *«**t*  ^*|**V   *n  -i*  n-  'i-'i5  t*i*  t*  *i*  *r  ******  *i*  •"**  *i*  *»"  *i*  *»*  *»"*  *¥**¥■  'i****  *»"  ***  *»*  *"<*  *i-    1 


P-OCEDUFE    INI 

:ti 

:alize; 

BEGIN    •'*    INITIALIZE   *) 

p.wDrn 

= 

'  5  N  i) 

r    m 

RWD[2l       : 

= 

'ASC 

t  • 

RWD[-^]       ■ 

= 

'»Vnx 

f  . 

p  W  D  [  41 

= 

'RY 

s    • 

RWD[51       ' 

;  = 

'CONTAIN 

0    • 

RWDT^] 

>  = 

'COUNT 

r  # 

EWD[7l 

= 

'DELETE 

^  . 

RWr[9]       : 

:  = 

'DEsV 

t  . 

RWD[9] 

•SB 

'T^ROM 

*  . 

^W^[10l 

= 

'IN 

/   a 

RWD[11] 

;  = 

'INSERT 

X   # 

RWD[12] 

:  = 

'INTERSECT 

^   a 

P.WDri3l 

= 

'INTO 

r  . 

RWD[14l 

:  = 

'MAX 

/    . 

RWD[15]     ' 

•  = 

'MIN 

/   . 

Rwufiei 

= 

'MINUS 

/   . 

RWD[17] 

:  = 

'NOT 

f  , 

RWD[19] 

•  = 

'OR 

f  . 

RWDT191 

= 

'0DDE~ 

t  , 

R WD [201 

:  = 

'SELECT 

*  . 

RWD[211 

:  = 

'SET 

^   # 

RWD[22] 

•  = 

'SUM 

#  , 

WSYM 

"11       : 

WSYM 

'21       : 

WSYM 

'3]       : 

WSYM 

>1       : 

WSYM 

"51       : 

WSYM 

:si    : 

WSYM 

"?]       : 

WSYM 

:el      : 

WSYM 

:9]       : 

WSYM 

'101     : 

WSYM 

:m  : 

WSYM 

'121     : 

WSYMI 

;i3]     : 

WSYM 

'141     : 

WSYM 

[151     : 

WSYV 

[IS]     : 

WSYM 

'171     : 

WSYM 

[18]     : 

WSYM 

'191     : 

WSYM 

'201     : 

VSYM 

[211     : 

WSYM 

r22l     : 

andsym; 

ascsym; 

AVGSfMJ 

bysym; 

contsym; 

CNTSTM? 

DELSY^; 

dessym; 
ermsym; 
insym; 
inssym; 

intrsym; 

intosym; 

ma.xsym; 

minsym; 

minssym; 

notsym; 

orsym; 

ordsym; 

selsym; 

setsym; 

sumsym; 
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r7/^r23l  : 
pwi>r24]  : 
R WD [251     : 

Rwrr?6]  : 
ssymT+'I 

SSYM['*'l 

SSYMT'='] 
SSYM  ['>'] 
SSYM[\  '1 
SSYM['(  '] 
CC    :=  ?; 


LL 


'I'M  TON 

'un i our 

'UPDATE 

=  plus; 

=  star; 

=  fol: 

=  c-tr; 

=  cma; 

=  lprn; 

:=  ^:  CH 


W  S  Y  "*  [  2  3 "I 
VSYM| 241 
WSYM[25l 
WSYMT26] 
SSYM['-'l 

SSYMf'/'l 
SSYM[  V] 
SSYM[':  '] 
SSYM['.  '1 
SSYM[')'] 


=  UNISYS? 
=  UNI03YM? 

-  updsym; 

=  WHFRSYMJ 

m  I  n  : 

slash; 

lss; 

cln; 

p?d; 

rprn; 


end; 


*  INITIfiLIZ^  *) 


*) 
*) 


/  *•-  »**  »•**''  ^V"1*  sScaSfV*  *•*  o*y-  j.>><j<j*ju<j«  «u  «A»^u  *u  ju  **-  »»*  J*«i*  j-  »'#»'-  ».***»-.  «•*  Jv.ty  a«  aJU  %»*  »V  -J-  *»--JU  J*  o> .»-  -'-  .»-    '-  -'-  *.**»!■#  .'.»**  »',.  «V  . 

I  *t"  *C  "\*  *t*  *i"  n*  "i*  *1*  *TT  *;■"  *(*  *i***i*  '  -  *t*  *t*  "i*  »j»  *p  *i*  "i*  I*  *i*+f*   "I*  ***  *i~  T  *>••  *.'  'i*  *i»  *i"  *i  ■  "i*  1*  *P  *|*  **"  T  "l*  *»■•  *P  *i*  **C  "i*  *l*  ■*«*  *l*  'l*  '.■"i"  '1**0  ■*»■*  *1%  ' 

(* 

(*  ERROR  MESSAGES  A.RE  GIVEN  ON  SYNTAX  EPRO?  AND  D*TA  MANI- 

(*  PULATION  ERRCR.  UCSD  -  PASCAL  I/O  ERROR  WILL  QUIT  T"E 

(*         SYSTEM  *Nn  HAS  TO  *r  REINITIALIZED. 

(* 

/  «U  *»*  *i-  V*  **-  **f  V-  *»*»'■*»•*  •''  -'--J-  a#  »'*  J«V  .»-•.'*■  v>-  *»-  O*  OU*.'-  «,'-  ou  *»*  *t*  .'-  J-  ..l.  JU  JU«L*  JU  O*  V*  *>.  .J-  *j.  »'-  «UO<  %u  J-  v'-  w*i.*A>  j,  «(#  .U  ^'-»'f  .t„  u-  %i,  *»*  J,  \ 

(  *r  n*  "I'n"*  *r  nrn'  *r  *i*h*  *«»  *.- <t*  *^  *p  *p  *r*  #r  ti"i*t  *:*  n*  3r  *t-  *.**i*  *i*  i»t  t**F*P  ^  *r  ■v  n*  *t*  *r*  *r  *t**»*  t  '»**?  "T"ik  t*  i**»*  •»*  »i*  *r  **•  ***  *is*»*  *i*  J 


*) 

*) 
*) 


PROCEDURE 
P  P  0 1  N  ^  * 
CASE  S 
CLN 
PRD 
I  "O^N 
INTO 
SETS 
PYSY 
EOL 
GTR 
FRMS 
INSY 
LPRN 
RPRN 
OUOT 
NPR 
NUL 

end; 

CC  :  = 
CAS^  E 

1  : 

2  : 

END 

end; 


E^FO0 ; 
vRR0R  *) 

OF 

WPI 
WRI 
WRI 

WRI 

WRI 

WRI 
WRI 

WRI 
WRI 
WRI 
WRI 

WRI 
WRI 
WRI 

WRI 


T 

SY^ 

YM 

M 


M 


TELN( 
TELN( 
TPLN'' 

TELN  f 
TELN( 

TP1 N  ( 

TELN( 

TELN( 

TELN( 

T^LN 

TELN 

TELN 

TELN 

TELN 

TELN 


:    is  exDected 
is  expected 
Identifier  is  needed 

IMTn  '  is  expected 

SET   is  erp°cted 

VX  _   is  expected 

=  _'  is  expected 
is  expected 

FROM  "  is  expected 
^Comparison  is  expected 

(    is  expected 

)    is  expected 
\ This  string  is  too  lonf: 
'Nunber  or  quoted  string' 
'Too  long  for  a  number') 


); 


ll;  SYM  :=  nul;  no^rr  :=  false; 

PF    OP 

PXI  T  '  ?R1??8R'P  ) ' 

EXIT( STATEMENT) 


PP. 


/    «.'*  ».'.•  o*  .,■*  ..'»  »'»  »'*  •.**  .■  *  «■*  «,<-  «.y  ■»'-*  -*-    •'■,"  *■'*  *'«•  *lrf  *''  *-''  •>■'■*  -'-  J-  «J*-  »J-  »'-  >>»  "■'■•  »•-*  •>■'■•  »'•  »'*  ->''  •-'»  »''  »V  »'••  ***  *'*  ■***  *'■*  *-'*  • ''  *>'*  *'*  •  '*  ■*  *  *'*  *'*  *■''  i1'  "'■*  *V  *'*  ■*'"  *'* 

'      »|»  ^|»  *|*   ',»   *!**(■•     ^.-»  *|*  *f    «t*  ^-»  *|^   ^j»  *ft   »-|»  *■>*   >c*  *|»   ^,-    *|»  *]■»    "^*  rf«    *   -   wy+    *|»  ^j*   *■,»   j»j-»  #|»   ^p   ">|»  *,^    ^»»,»   ^W  >^  »>»   rt~    *■!»   *j»  #■[»  ^|*  «-|»  *(■»    'p   •»,■   »t»   *■!»    'J1*  *i»   *(■•  *|*»   rf%    *|V   »,■» 

,'  *  * 

[*      AFTE3    PUTTING    THE    USER'S    REQUEST    IN    A    LINE    "-U7EEF.,       * 

(*  THE    SCANNER   WILL    SCAN    IT    TOKEN    BY    TOKEN.  * 

f*  * 

'  ?■«  ^i*?!-  v  *p<v  'i**.*  •,»  *f*  *r  *r  i*  i*  *i"  *P  *r*  t  i*  *r*r  *t-*r-  *v  *v  *»»  n*  -v  *i*«i*  *r  -i»*v  *v  '.*  *p  *p  v  *i"  *r  T  Ji*  *•*  *i*  n*  *>*  -r**v*  *r*  n**r  *r*r  *r  *i*  n*  i 

PROCEDURE  scanner; 
VAR    I,    J,    K:    INTEGER? 

INBTJE       :    5TP.INC-; 

PROCEDURE  g^tc11; 

BEGIN    (*    GETCH   *) 
lv   CC    =    LL    THEN 
"BEGIN 

7    ;=   fl;    LL    :=    ^ 

WRITE ('===>    ')?    READLN(XfINEUF)J 

iv    mot    EOE'X)    THEN 
BEGIN 

LL    :=    LENGTR'IN'QUE); 
?0R    I    :=   1     TO    LL   DO 
LINE[I1     :=    INBUETI1  ; 

LL    :=   LL  +1 ' 

*OR*I    :=   LL   TO    80    DO    LINE  [I]     :=    '    ' 
TND    ELSE    EXIT 'SCANNER ) 

end; 

CC    :=   CC+1?    CH    :=    LINE[CCl 

end; 

BEGIN    (*    SC ANNE3    *) 

IE*CH    =    ""    THEN 

BEGIN    <*    QUOTED    STRING    *) 

K    :=    P»; 

f  v.  t  r  h  * 

WHILE    (CH   <^>    "")     ftND    (K<3f)    DO 

"P^GIN 

K    :=   K+i;    OUOTEDfK]     :=   CH?    GETCH 

end; 

F   CH    =    ""    TUEN 

BEGIN    S YM    :=   QUOTJ    CST?    :=    COPY ^ QUOTED, 1 ,K)    END 
ELSE    ERROR (QUOT) 
END    ELSE 
tj^GI  N 

IF    CH    IN     ['A.'.  .'Z'l    THEN 
BEGIN 

7    :=   0?    KK    :=   WRDSIZE5 
REPEAT 

IE   E    <   WRDSIZE    THEN 

PEG  I  N 

K    :=  K+i;    WORD [Si     :=   CH 
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^nd; 

UNTIL  NCT  (Cu  IN ['A'.  . 'Z ',  '7'.  .  '9','*'!  )J 
p  ^  •—  p^—1* 

IE  K  >  KK  THEM  KK  :=  K 
ELSE  REPE4T 

WORD[KK]  •=  '  ':  KK  :=  KX-1 

until  xe  =k; 

ID  :=  WORD;  I  r=  I?  J  :=  NORW; 
REPEAT 

K  :=  (I+J)  DI,r  2: 

I'  IP  <=  RWDfKl  T"N  J  t=  K-l; 

17    IP    >=   RWD[Kl    THEN    I    :=   K+l 
UNTIL   I    >  j; 

If    1-1    >    J   THEN    SYN*    :=   WSYM[!fl 
r^s^   "GIN    SyM    •  =    I  "NT? 

FOR'l    :=   l*TO   EK   DO   S??G[I]     :=    ID  [I]  : 

STR    :=    COPY'STRG,l,!nO    END? 
END   ELSE 

jp  nrj      jjj   ['?l'#.'Q'1   TUrN 

BEGIN  (*  NUMBER  *) 

X  :=  p;  MUM  ?  =  7;  SYM  :=  NB? ; 
REPEAT 

mUW  :=  i^vUV  +  roRD(CH)-0?.D(  '0')). 

k  •=  x+i  j  frTT',Tj 

UNTIL  NCT  (CHIN  "['(?'.  ,'9'1  )» 
rr  r=  CC-1 * 

IE  K  >  NM*X  TH^N  ERROR  (MUD 
END  TLSE 
BEG  I  N 

IE  CH  =  '< '  T"N 
"GIN  GETCH! 

IE  CH  =  '='  THEN  SYM  :=  LEO 
ELS"7  I?  CH  =  'N'  T"N  SYM  :=  NEO 

ELSE  BEGIN  CC  :=  CC-i;  SYM  :-   LSS  END 
END  ELSE 

IE  CH  =  '>'  THEN 
"GIN  GETCr; 

I?  CH  =  '='  THEN  SYM  :=  GEO 
ELSE  "GIN  r,r    T=  CC-i;  SYM  :=  GTR  END 
END  ELSE  SYM  :=  SSYMfCH] 
END 
END 

end;  (*  sc^mnep  *) 
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s!s  ;!s  *'s  i'*  i';  i*;  i1;;*;  s'*  Vs*'*  •**sfe  ***  *'*  *'*  *'*  *'*  *,*»|*  ■**  »v  »>-  ******  »*-  y*  »«*  «•.  *•-  *j-«»-  «a-  «j*>«v  .»*»t*  »•*  »v  -■-  ***  ,>.  ~'.  .j*  .«* . 

I     T  T"  »l     "O  »i»  -»-  *»»  *•  -  *,«  *,••    ',**,-  »,-  ',*•  *,-  *,«  *,>  *  *■  *,»  *,*  *,*  *.»  *(»  *,»  *r  »,»  *,••  *t»  <*i-  «p  -r  *,%  *r  »,>    rr  *,%  ,,*  *,*  »j,  *r    -,„  ^-.  ^    ,,*  . 

(#      TH?   mt>7T    T-I?r    FUNCTIONS    WILL    IDENTIFY    PES    DELATION'S 

(*      NO.    ^N1"    errTOT'pUTr'S    NO 
(* 

/  s!c  ^;  i!;  s1?  :'c  ^i  ;'<  ;'c  ;'c  3!;  y*  s'i  *!*  s!c  A  5!*.  *'-  st  afc  ***  *>'*  s1*  A  **»  **-  J*  •*•  ***  *  ***  -J*  «*»  **-  *•*  ***  »'-  *>*  *l*  »•*  **-  v*  »'*  *>*  »"-  *'•*  »'*  •***  *'*  -•*  *'*  W  •'-  *'-  *"-  * '  -  *•-  ■ 

FUNCTION    P0S?.EL(?    :    STRING    :    INTrG^R; 
VAR      I    :    INTEGER? 

3EGIN 

I   ',=  0; 

REPEAT    I    :=    1+1 

UNTIL    (l    -   M^X^EL)    0  3    rRELTBL [I] .NAMED   =    ft)» 
IE    I    O    Mft7R*L   T^EN   POSREL    :=    I 
ELSE    E~R0R' -EL5YM) 

end; 
function  posatt'var  ?   :   integer?   r   :   st?in"r)    :   integer; 

BEGIN 

REPEAT    ?    :=  P+l 

UNTIL    '  flTTTL  [?1  .  ATN    =   ?. )    OR    •?    >    ?  +  r); 
IE    NOT    (P    >    ^C;    THEN    POSATT    :=    ? 
TLST    rRROR ' flTTSY^) 

end; 


/    »'*  -  -  *<*  -'*  j'*  *»-  *'*  »'»  «C*  -.'#  *l«   *JU  »>-  *•*  %>«  -J*  *A»  %'*  V«  *U  0«  **#*Jtg  JU« 


THIS  PROCEDURE  IS  USEE  TO  LOAD  THE  RELATIONSHIPS 
INVERTED  ^IL^S  INTO  MAIN  MEMORY.  SINCE  THE  RELA- 
TIONSHIPS CONTAIN  NUM?^'S  ONLY,  THIS  WILL  OCCUPY 
LESS  vEMO?.Y,  MUCH  LESS  TH»N  THE  ASSOCIATED  D^TA. 
PROCEDURES    ARE   AVAILAPLE    IN    USEE'S    MANUAL 


(* 
f  % 

(  + 
(* 

/  %r*  »»*  «.'-  »»*  v*  »i-  *•*  *i*  *U  -J*  J*  «*•*  *•*>  »>*•  *•*  k«*  -J*  *<*  •»-  *u  *'-  V*  *'*  *'**'*  -"-  "•'*  -'*  •.'-  ■*•  •.'-  -*-  ***  *•-  *•-  -**  **-  *»-  *•■*  »'*  *'•  *'*  *'*  *'-  »'-  -,-  *'*  »'*  -'*  y-  ■»''  *'-  *'* 
1  *i»  *r*  »i*  »i"  *(»  *i*  *i*  'i-  "  *  *i»  'i*  »;*  *.*  *i*  »,•■-■>  t-  "i»  ',« 1*  *»»  *i*  1-  'i-*i,»  '1*  *.  *i^*i"  *r  *.-  - 1-  *r»  •'.^  n"  *i*  *»"*  1^  *i%  "1*  "i"  *.*  *.*  '»■"  n*  *•■•  f*  '"  +\*  '»*  "»*  "»"■  *•* 


*) 
*) 

:;:  ) 

*) 
*) 
*) 
*) 


?ROC^DURr  prepare; 

VAR    I    ,    J,    K    :    INTEGER; 
PROCEDURE   PEL? 

PROCEDURE    ATTDESC; 
BEGIN 

IE   SY^    =    I DENT    THEN 


(#    4TTRIRUTT    DESCRIPTIONS    *) 


WITH   RELTBL[J]    DC 

B  EG  I N    B    :=   B  ft  S  E »    C    :=   SIZ17   END; 
?    :=  p;    K    :=   POS?TT(P,STR) ; 

SCANNER ; 

p    5YM   =    tm«    T17™    SCANNER    ELSE    ERROR  ^CMA); 
IE    ST?.    =    'KEY'    T^EN 
WITH    «TTBL[Kl    ^0 

BEGIN    STAT    r=   KEY;    ADDR    :=    0   END 


a? 


ELS7    lv    r ST"0    =    'r7-rY'v    qt>    'SmR    =    'R^TR  ' )    T^EN 

RFC- IN 

vi tu  ?,ttbl  [it]  ^o 

BEGIN    I7    ST-    =    'C^EY'    THEN    ST-rT1    ;  =    CK^Y 
ELS?    STAT    :=    RET5.; 

ADD13     :=    A* 

end; 
fname   :=  congat ( '#5: ' , reltbl [j]  .m hmed) j 
relnamet=cqncat(ename,  '.  '  ,attbl[k]  .atm)  ; 

"EC  :=  ?; 

R^S^Tf  "NYR'L.R^LNAME); 

WHILE  NOT  EOF^ANYREL)  DO 

BEGIN    SEEK' «NYREL,REC);    GET(ANYREL); 
I?    MOT    EO?(»NYREL)    THEM 
TJT«ifj    s  a     :  =    A  fl. +  1 J 

WITH    "MY^EL"    DO    INVT3L[A.fil     :=   SETNOJ 
^EC    :=    REC  +  1 

7VT) 

end; 

with  att3ltk]  do  siz  :=  aa  -  add?.; 
close(  4nyrel.10ck) 
end  else  ie  str  =  'nonretr'  then 

WITH  «TTRL  fZ*\    DO 

BEGIN  STAT  :=  NONRETEJ  3.DDR  :=  ?\    SIZ  t=  0  END 
ELSE  ERRCR'STSYM); 
SCaMNEr; 

jt  5^^  -  fM_»  TEEN  SCANNER  7LSE  ERROR  (CMA)» 
Itt  ST^  =  'CE'  THEM  » T TBI  [£]  .KIND  :=  OUOT 

^LS^  IT  STR  =  'N3R'  THEN  ATT3L  [K]  .XI ND  :=  MBS 
PLS"  ERROR(KNDSYM) ; 
IE  CC  <    LL-1  THEM  SCANNER 

ELSE  BEGIN  WRITE (  '  ')♦ 

SCANNER  END 
END  ELSE  ERROR (IDENT) 
END  ; 

PROCEDURE  IDENTIFIER? 
BEGIN 

IE  SYM  =  IDENT  THEN 
BEGIN  I  :=  I+i; 

«TT"°L[Il  .*TN  :=  STR; 
SCANNER 
END  ELSE  ERROP (IDENT) 
END ; 

PROCEDURE  RELDESC;        (*  RELATION  DESCRIPTIONS  *) 
BEGIN 

ie  syv  =  ident  then 
■dtc-IN 

J  :=  J  +  i;  RELTBL [Jl  .NAMED  :=  STRI 
RELTBL [J]  .BASE  r  =  I;  SCANNER: 
IF  SYM~=  LPRN  THEN 
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end: 


BEGIN  SCANNER: 
ID^NTI^I  v^  ' 
WHILE  SYM  =  CMA  DO 

BEGIN  SCANNER?  IDENTIFIER  END; 
REIT*!  [J], SIZE  :=  I-RELT3L  [Jl  '.BASS? 
IF  SYM  =  P^?N  THEN 

P*GIN  WRITE( 'Attribute  ')J  SCANNER 
END  ELSF  ErRO?fF?pN> 
^ND  ^LS*  ERROR 'LPRN  ) 
END  ELSE  ERROR (IDENT) 


BEGIN    (*  3EL  *) 
PFLDESC; 

while  sym  =  i  dent  dc  4.ttdesc 
end: 

begin       *  prepare  *° 

I    :=  fl;    J    t=  g;    E^R    :=   1 ; 

AA  :=  0?  NCERR  :=  TRUE; 

WRITELN( 'Please  describe  your  Data  Base'); 

WRITE;. 'Relation   '); 

scanner;  rel; 

WnILT  SYM  =  CM*  DO 

BEGIN  WRITE ( 'Relation   ')» 

scannef;  ~fl 

tnd; 
if  sym  <>  prd  then  error 'pre) 
elsf  7/pitfln 
end; 


X  ••#  »•*  »»*  *■*  - ■-  • '. 


(* 

(* 

(* 

(* 

r* 

(* 
(* 


U  *•*  Jl*  -J*  »i-  »'*  *f«  »•*  hb  »«*  U»  ^  »«*  ■*'.  *'.„'-  <A»  •*»  *.»*  *.'*  ■»'-  -1-  %'*  <•'»  «0*  %*•*  »•*  V*  V'  »'*  -J-  *■'*  "••*  -!-  -''  »**  *•-  *■'*  *'■*  *■'*  M>  -''  »'*  *V  -'*  -'-  ***  -'*  -**  »'' 

,■*  *r  *«s  1*  *r  1*  ***  *r  *>*  *i*  *•*  *i*  *p  *i"*  *»*  *<*  *i*  *.*  *i*  *  *  *»*  *i*  *  *■  *pi  *>%  *i*  *i*  *>»  *.*  t*  *»■»  n**  *p  t*  *p  *r*  ***  *r*  tp  *v  *•*  t*  *»*  *(■*  *v  *i*  1"  ?r  '1* 

VERIFICATION  PROCESS  TAKES  PLACE  IN  THIS  PROCEDURE  * 

FOLLOWING  TnT  QUERY  L8NGUAGF  GRAMME?..  AT  THE  SAME  * 

TIME  TWO  TABLES  APE  "Rtat1^  IN  ORDER  TO  GIYF  THE  * 

INFORMATION  TO  INTERPRETER  WHAT  &CTION  SHOULD  BE  * 

TAKEN.  THEY  ARE  SEQUENCE  TABLE  AND  REFERENCE  TABLE.  * 


JU  *»*  *V  ***  ***  »J>  •»>***»*»-  »<*  •?*  JU  ."..  »U  JU  *l*  *»*  ^**  »J*  JU***  »'*»!*  J-  *f»  *'-»»•*  *»*  *•*•!*  JL»  *'*  »»»  **»  ***  *'*  •**  •■,-  ***  ■»'*  •>*'-'*  «V  »**  *V  »'-  •'-  *•*  ***  ***  *•*  •**-  ***  ***  ***  »'*  \ 

*i»  f"r  t  *r  i'  *.*  'r  *.-  *?  *?  *p  V  *r  *i*  *r  1**  3i"  3i-  ^*  n*  *?*p  *•-  *r  'i-*.-*  *r  Ji*  '1-  «v  '1-  *p  t"i*  *r  *t*  *i*  *r  -r  *i**»*  '»*  t"%*  *i*  -i*  *■»»  -v  *i*  *»*  *i**r*  '1*  *i*  v  1 


??CCEDU';E    STATEMENT? 

VAR      TREF,    TSEC    :    INTEGER; 


S  MTSYM 

SAVR^ 

SAVTBL 
SA7SFC 


sym?ol; 

array[1. .maxrefl  of  refrecj 

ARRfiY[l. .MiySY^S]    OF    SYMBOL? 
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/  sic  *'c;'i  5'*  z'z**?  *'*  y?y^  i!s  5''  ili  i'i s**  ^!r  5*f  y*  **t  *'*  »'-»,<»  j-v*  »»* *j*  ***  j*  o*  o,  .j,  ju  ■/-  »•-  ^-  j-  -j,  -u.  »i*«.*»  *<-  -J-*'*  *•*  -•-  *>*  »»-  -.,  ju  »»-  *t„  „.„  o**v» 
■  •f'  *,»  ■»,•  *■,»  ^  ,-  -,-  *■,-  *,»  *,-  *,»  ^p  *>,»  *r  *p  .*,•«.  .*,■»  «■-».  .*,.>  *,»  #,-*  -,»^»  ■*,-  -,v  *^«  »,»  a,-.  *,-  *■,.  -,*  *.,..  ?,»  *.,,  *^s  *.,»  -.r  *y-  *.•  *»■*  *■.- 1*  *r  'i*  'i*  '.*  *v*  *r   *.*  '•-  *<■*  'fr  * 

(*      THE    REFERENCE    TABLE    IS    CREATED    BY    THIS    PROCEDURE 
( * 

/   si*  sl»  *'-  S.1,  si*  «l«   -I*  ,1.  J-  ^  J*J*  .J>  «»•  si-  ^  s«*  SS.  st*  .■.  si*  s'-  S,*  hi*  s*.  •.!»  Sl-  s'-  .J*  sT*  »**  *V  »'-  »V  S>»  s>-  «<*  si-  s'-  -',  si*  hi*  S<*  sj*  S,l*  .•-  si.  »s.  »!«.  .  I*  s»>  sf*  »■* 


*) 


^P.OCEDUP.E   EMT7~  f  fl  ,3  .MUM 
BEGIN 

CX    :=   CX+1: 


TNT'G-'R.    7,0    :    SYMBOL); 


WITH    REETBL[CX]    DO 

BEGIN 

RNO           ?=    \\ 

ANO           :=   3; 

ECT           :=    EJ 

C.'S*    0    OF 

SETS    :    NAMES 

:=    ATTSJ 

QUOT    :    CU0T5 

:=   CSTR: 

NBR      :    VAL 

:=    MUM 

F*:D 

END 

END,       {*    ENTER.   *) 

/     »•-.  -.■-  «IU  «-><■  *)«  >JU   .'-  V-   **-  -'*  *>••*  *■**  *■'-  V*  *V  »'■'  "J*  "»■*  -A»  »*»  -'-  »'-***   «J-  J-  »»*  J*  •>><•  «•-  »•»  «**«t#  »i-  . 

I         »•,»  *,"•  l?,fc    .»!•.   #|»    *.»    *,-■  #y*    *,«•    -•,  -  »,•»    >T|«   *p    ■»,-    *»j^    »,"•    J^   ^,%    *,•-   -,-»    tftj*   »(«  »,»     -,«#,■•    J|»    Jt*    ?§»   »,«.   #,»    *,»  *p     »,«   • 

(*  THE    FOLLOWING    PROCEDURE   GENERATES    THE 

(*  S^OUENCE      T^L17 

(* 

PROCEDURE    GEN'S     :    SYMBOLS 
PF5IM 

TO?    :=    T0?+lf 

SECTBLrTO?1     :=   S 
tpmt.: 


# 


PROCEDURE   EXPRESS? 

VAR      SAVSYM    :    SYMBOL? 

PROCEDURE    ARIT^TTR": 
V.aw      5AVSYM    :    SYMBOL.* 

PROCEDURE    ARITHEACT; 
Vs'R      S.'VSY^    :    SYMBOL: 

PROCEDURE    PRIMLY: 


f*  EXPRESSION  *) 

f*  ftRITHM«TIC    TERM  *) 

(*  ARITHMATIC    FACTOR  *) 

(*  PRIMARY  *) 


PROCEDURE    UNIC; 
u^C-IN    (*   UMIC   *) 

if  sym  =  uniosym  then  scanner; 
express; 

jv    cv^   =    RPRN    TnEN    SINNER 
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tt  2 r  trr  OR  {  R P  i  \'  ) 
end;   f*  ~UNIC~Vj 

tT'jTM  (#  PRIMARY  *) 

jv   qvy  tv  ra'v'JSTM.  M.«XSYM,  MINSYV,  SUMSYM]  THEN 
BEGIN  EUNC  :=  SYM;  SCANNER? 
IE  SYM  =  LP°N  TFVN 
3EGIN  SCANNER?  UN  10 
END  ELSF  ERROR (LPFN) 
END  ELSE 

IF  SYM  =  IDENT  THEN 
REG  IN  SCANNER. 

jr  5YM  =  PR"}  TH^N 
BEGIN  IE  CC  <    LL-1  THEN 

begin1  scanner; 

jv    sym   =    IDVNT    THEN    SCANNER 
ELSE    TPRG?(lb?MT) 

end; 

END    ELSE 

IP    sym    =    LP"*'    THEN 

pegin  scanner;  un  10 
end; 

END  ELSE 

77  svv  -  PNTSVV'  TH^N 
BEGIN  EUNC  :=  SYM;  SCANNER; 
jv    <5YM  =  L"0^'  mPEN 

"PEGIN  scanner; 

IE  SYM  =  STAR  TnrM 
BEGIN  SCANNER; 

iv    sym  =  R??N  THEN  SCANNER 
^LSE  ERROR'RPRN  ) 
END  ELSE  UNIC 
7ND  PLSE  ERROR  'LPRN) 
EN?  ELSE 

IE  SYM  IN  [OUOT,  NBPl  THEN  SCANNE? 
^LS~  IE  SYM  =  LPRN  THEN 
BEGIN  SCANNER;  EXPRESS? 

IT  SYM  -  RPRN  THEN  SCANNER 
ELSE  ErrOP—  PRN) 

TTNJT) 

END?       (*    PRIMARY    *) 


BEGIN  f*  a^it^^a^T  *) 

IF  SYM  IN  [PLUS,  MIN]  THEN  (*  UNARY 

PEGIN  S*VSYM  :=  SYMJ  SCANNER  ^ND; 

primary; 

IE    S5VSY^    IN    [PLUS,    MIN1    TH?N    GEN'SAVSYM) 
END;       '*    ARITFPRM   *) 


CR 


*) 


PEGIN    r*    ARITHTERM   *) 

arithfact; 

while  sym  in   [star,  sl?sh]  do 
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TL3r  ERROR (RP^N ) 
END  J   (*  UNIC  "5M 

'EG  IN  (*  PRIMARY  * ) 

iv  sym  iv  ra'vSSYM,  M»XSYM,  MINSYV,  5UMSYM]  THEN 
BEGIN  EUNC  :=  SYM?  SCANNER; 

IE  SYM  =  LP°N  TP^N 

BEGIN  SCANNER? "uniq 

END  ELSE  ERROR (LPPN) 
END  ELSE 

ie  sym  =  ipent  then 
begim  scanner; 

It  sym  =  PRD  THEN 
BEGIN  IE  CC  (    LL-1  THEN 

begin'  scanner; 

I"?  sym  =  IDENT  THEN  SCANNER 
ELSE  T?RO?7 IDENT ) 

ENT>; 

END  ELSE 

It  sym  =  L?-v  THEN 

begin  scanner;  unio 

end; 

END  ELSE 

IT  sVM  -  '"'NTS17^  ^'T^ 
BEGIN  EUNC  :=  SY*;  SCANNER; 
jv    SYM  =  L15^^'  mFEV 

'EGIN  scanner; 

IE  SYM  =  ST5^  TnT,M 
BEGIN  SCANNER; 

lv    SYv  =  p_ppN  Tpsm  SCAV\'E? 
~LSE  ERROR (RPRN ) 
END  ELSE  UNIO 
7ND  "^LSE  ERROR  'LPRN  ) 
2ND  ELSE 

lv    SYM  IN  [CUOT.  NB?1  THEM  SCANNE? 

^ls7  ie  sym  =  l?rn  then 
begin  scanner;  express; 
i"*  sym  =  rprn  then  scanner 

^LSE    SPPOP.f? PRN) 

TM"n 

END;       (*    PRIMARY    *) 


3 EG  I  N    ■  *    *VI  TH**  *  rT    * ) 

IF    SYM    IN     [PLUS,    MIN]     THEN  (*   UNARY 

BEGIN    S»VSYM    :=   SYM;    SCANNER    ^ND; 
PP.IMAPTf 
tv   ssVSYM    IN    [PLUS,    MINn    TTJTrN   GEN'SAVSYM) 

END?   '*  flRITH?RM  *) 
BEGIN  '*    ftRITHT^RM  *) 

aritheact: 

'a'HIL7  SYM  IN  [ST*?.,  SlASHl  DO 


OR  '-'  *) 
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Ttff;iN    SaVSYM    :=    SY^J 
SCANNF"5?     BRITE?ACT" 
GEN  (  S5  VS'fM) 

END 
END*       '*    a?ITHTE?M    #) 

begin   (*  fxpr^ss  *) 
arithterm; 

WHILE  SYM  IN  [PLUS,  MINI  DO 
BEGIN  SAVSTM  :=  SYMJ 
SCANNER?  aRITHT^RM; 
GEN(Sa.VSYM) 
END 
end;   (*  EXPRESS  *) 


PROCEDURE  entry  list; 


ENTRY    LIST    *) 


PP.OGFPUR^    TrNTRYL?RM; 
BEGIN    f*    FNTRYPRM   *) 

IT    syv    =    cms    TH^N 

BEGIN    SCANNED 

IE   SYM    IN    [QUOT,    NB^l    THEN 
P^GIN   scanner;   ENTRYLPRM 

END   ELS^    T~?0T>(NBR,» 

END?   '••'  SNTRYLPRM  *) 

BEGIN  ' *  ENT~YLI3T  *) 

tv    svM  IN  [QUOT,  NBR]  THEN 

BEGIN  SCANNEF;  ENTRYLPRM 
END  ELSE  rRRCR'  NRR  > 
END?   (*  ENTP.YLIST  *) 


PROCEDURE  LITTU?7",17; 

begin  c*  littupl1  *) 
ie  sym  =  lss  th^n 

begin  scanner;  entrylist; 

IF  SYM  =  GTR  THEN  SCANNEP 
ELSE  ERROR (GTR) 
END  ELSE  ERROR(LSS  ) 
END;   (*  LITTUPLE  *) 


f*   LITERAL  TUPLE 


# } 


PROCEDURE  LITERAL? 
BEGIN 

LITTUPLE? 

WHILE  SYM  =  CMS  DO 
P  EG  I N 

scanner?  littuple 
end; 

IE  SYM  =  RPRN  THEN  SCANNER 

else  srrcr(rprn) 

end; 


(*  LITERAL  *) 
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procedure  ^ocl:  forward; 

PROCEDURE  OvJSRTBICCFt  (*  OUEPY  ^LOC?  WHERE  SELECT-FROM-WHERE  *) 

(*       CLAUSE  IS  FOUND  *) 

VAR   SAVR*"*  :    R'EREC? 
SAVSYM  :  SYMBOL; 

??OCEDUJE  FPOMPRM; 
BEGIN  (*  FROMPRM  *) 

IF  SYM  =  CM*  TE^N 
P'GIN  S"flNN,17R: 

IF  SYM  =  IDENT  THEN 

BEGIN  SCANNER*  EROMPPM 

TND  ^LS"7  FRRORflDFNT^ 
END 

end;  (*  e~ovp?m  *> 
begin  '  *  qu'ryblock  *) 

IF  SYM  =  SFLSYM  THEN 

BEGIN  TT  :=  U  «TTS  :=  []  J  ALL  :=  FALSE? 

scanner; 

IF  SYM  =  UNIOSYM  THEN 

BEGIN  SAVSYM  :  =  SYM;  SCANNER  END; 
IF  SYM  =  ST4-  THEN  BEGIN  *LL  :=  TRUE;  SCANNER  END 
ELSr  BEGIN  EXPRESS;  TEM?[TT]  :=  STRJ 
'a'-IL7  S^M  =  CM  a  DO 

BEGIN  TT  :=  TT  +  1J  SCANNER; 
"^X^R^SS;  T ^M ~°  *" ^ T "I  *=  STR 

end'  "end; 

IF  SYM  =  F^MSYM  THEN 
P"PGI  N  SCANNER; 

IV   sym  =  IDENT  THEN 
BEGIN 

a  :=  POSR*L(STR) t  f*    RELATION  NO.   *) 

B  :=  *ELTBL  [Al  .B*SE;  (*  BASE  OF  ITS  STT  *) 
C  :=  RELTBL[Ai  .SIZ^;  (*  #  OF  ATTRIBUTES  *) 
IF  ALL  TEEN      (*  ALL  ATT  'S  NEEDED  IN  INQUIRY  *) 

'OR  I  :=  P+l  TO  "B+C  DO  aTTS  :  =  ATTS  +  [I] 
ELSE  BEGIN 
?  :  =  P  * 
FOR  I  :=  1  TO  TT  DO 

*TTS  :=  ATTS  +  T?OS *TT (P ,TEM? [I] )] 

end; 

ENTER (  P  f0,<?,FUNC,SETS); 

SAVR7'  :=  R^'TBL fcx] ;  CX  :=  CX-l: 
scanner;  FROMPRM ; 

jv    syw  =  W?T-SYM  TFFN 
BEGIN  SCANNER?  BOOL; 

CX  :=  CX+i;  RE^TBLrCX"!  :=  SAVREEJ 
GEN(SELSYM) 
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II  SYM  IN  [SOL,  NEQ,  LSS,  LEO,  5TB,  SEC , 
CONTSYM,  INSYM]  T^EN 
BEGIN  EUNC  :=  5YM;  SC1NNFP  V\'D 
^IS7  ERROR(INSYM) 
END;   (*  COMPARISON  *^ 

PEG  IN  (*  PREDICATE  *) 

IF  SYM  IN  [SELSYMfL??.N,  LSS]  TEEN 

"P^GIN  tapl^s^c  :  comparison;  t^l^sp^c 

END  ELSE 

BEGIN  EXPRESS? 

?  :=  "?:  I  :=  pos*tt'p.str) ; 
0?j  :  =  attblti]  .kind? 
comparison; 

if  sym  in  [selsy^.  l??.n  ,  lssl  then 

?"?GIN    OSTR    :=    '    ':    SAVSYM    :=   LODJ 

ENTER ' \ ,1,0, TUNC, OBJ)! 

SAYR-p-p    :  =   RE"PTPL[CX];    CX    :=   CX-1? 

TARLESPEC? 

ri    :=   nx+1 :    RT'TELCCX]     *=    SAVREE 
END    ELSE    BEGIN    EXPRESS; 

TNT~C  fa  ,1  ,NUM,?UN(\OT!J)    VND 

end; 

IE    SA7SYM    =    LCD   THEN    GEN(LOD)? 
GEN  '''ON'0) 
END?       (*    PREDICATE   *) 

PROCEDURE    BOOLEACT; 

TAR        SAVSYM    :    SYMBOL? 
BEGIN    (*    BOOL1? *CT    *) 
I7    SYM    =    NOTSY^    THEN 

BEGIN    SAVSYM    :=   SYM?    SCANNER 
END    ELSE    SflTfSYM    :=    NUL; 
IF    SYM.    =    L?RN    THEN 

BEGIN    SCANNER?    BOOL? 

iv    qyM    3   RpRN    THEN    SCANNER 

ELSE    ERROR fRPRN) 
END   ELSE   PREDICATE; 

ip  savsym  =  nctsym  then  gen'notsym) 
end;  (*  boolea.ct  *) 

begin  (*  ^ocltepm  *) 
boole^ct; 

W^ILE  SYM  =  AN1) SYM  DO 

BEGIN  SCANNER*  BCOLE^CTJ  GEN(fi.ND3YM)  END 
VND;   (*  -OOOLTERM  *) 

BEGIN  (*  BCOI  *) 

poolterm; 

while  sym  =  c?:sym  do 

BEGIN  SCANNER?  BOOLTEpMT  GENfOPSYM^  END 
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FND»  ( ■'    'OOL  *) 
PROCEDURE  opdspeclist; 


I  sS 


*  ORD*R  SPECIFICATION  LIST  *) 


PPOCEDUFE  FIELDSPEC; 
BEGIN  (*  FIF.IDSPEC  *) 
IF  SYM  =  IDENT  THEN 
BFGTN  SCANNER; 

IF  SYy  =  PHD  THEM 
BEGIN  IF  CC  <    LL-1  TEEN 

BEGIN  scanner; 

IF  SY^  =  IDENT  THEM  SC*NNE? 
ELSE  ERROR f IDENT > 

end; 

END 
END  ^LS^  FRRORf T^ENT ) 
END;   (*  FIELDS  PEC  *) 

BEGIN  ( *  OPDSPECLIST  *  ^ 

FIELPSPEC; 

WHILE  SYM  =  CM*  j)0 

PPGTN  ScaNN?^;  EIELDSP'C  END? 

IF  SYM  IN  [ASCSTM*,  DESSYMl  THEN  SCANNER 
END;  '*   OPDSPECLIST  *) 

PROCEDURE  INSE3TSP7C;         f*  INSERT  SPECIFICATION  *) 
BEGIN  [*  INSERT SPEC  *) 

IE  SYM  =  LSS  TFEN  LITTU^LE 
rLSr  T '  SYM  =  S^LSYM  TH^N 

BEGIN  oueryblcck; 
while  syv  in   rintrsym,  umisym,  minssym]   dc 
begin  scanner;  ouerybloc  end; 

^ND  ELS'* 

IF  SYV  =  LPRN  THEN 
BEGIN  SCANNER? 

IT?  sym  =  iss  THEN  LITERAL 
ELSE  3EGIN 
OUERYEXPP; 
I v    SYM  =  RPRN  T^EN 
BEGIN  SCANNER; 

WHILE  SY*  IV  TINT-SYM,  UNISYM,  MINSSYM]  DO 
3EGIN  SCANNER?  0UERY3L0CK  END 
TN^  rLSE  ERROR fRPRN) 
FNP 
END  rLSE  ER -0D (LPRN) 
^ND;   '*  INS^RTSP^C  *) 
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PROCEDURE  SETCLLI3T: 
VAP.   SAVREE  :  REERECJ 
J       :  INTEGER; 


S?T  CLAUSE  LIST 


PROCEDURE  SETCT.  *USEJ 
P^GIN  (*  S7TPL«US^  *) 
IF  SYM  =  SFTSYM  THEN 
BEGIN  SCANNER; 

IT"  SYM  =  IP^NT  THEN 
BEGIN  P  :=  B;  I  :=  POSATT (P, STR) J 
0T3j  :=  B.TT-3X.CH  .*ind;  scanner: 
IE  SYM  =  ^QL  THEN 
BEGIN  TUNC  :=  SY^J  SCCNNE^; 
lv    SVM  =  L?RN  TH'N 

begin  scanner;  queryexpr;  gen(lod); 

IE  SYM  =  R?RN  THEN  SCANNER 

else"erpc'rKr?rn) 

END  TLS^'  EXPRESS 
?ND  *LSP  ^RROR(EOL) 
END  ELSE  ERROR(IDENT) 
END  ^LS*-  ERROR ^SETSYM) 
END?   (*  SETCLAUSE  *) 


BEGIN  (*  SETCLLIST  *) 

SETCLAUSE ;  ENTER (A, I .NU* ,EUNO ,OB J ) ' 

GEN ' S  rTS YM ) ' 

WHILE    SYM    =    CMA    DC 

BEGIN    SCANNED    SETCLAUSE; 
vnjt^R' A  ,1  ,NUM,EUNC  .OP J); 
GEN' SETS YM) 

FOR    J    :=    1    TO    rX   ^0    SAVT^Lfj] 


TREE    :=    CX;    CX    :=    <*! 


EOR   J    :=    1    TO    TO?   DO    SAVSEO[J] 
T5E0    :=   TO??    TO?    :=   *\ 
'NT?:      (*   SETCLLIST   *) 


=    R7ET?L[J]  5 
:=   SEOT^LCJ] 5 


BEGIN  '*   STATEMENT  *) 

CX  :=  0;  TO?  :=  a;  ERR  :=  2; 

TREE  :=  0J  TSEO  :=  0» 
IE  SYM  =  INSSYM  THEN 
PEGIN 

scanner; 

ttt  SYM  =  IN!TOSYM  THEN 
BEGIN  SCANNER? 

IF  SYM  =  ID^NT  THEN 
3EGIN  SCANNER; 

IE  SYM  =  CLN  THEN 

•p^GIN   sinner;    INSERTSP^C 

END   ELSE    ER^OR(CLN) 


(#    INSERTION    *) 


95 


SNT    ELSE    ERROR (I  DENT) 
PND    ^LS"17   ^RRCRf  INTOSTM  ^ 
ZMD    ELSE 

IF    SYM    =    UPDSYN    TEEM 

E^G-I N  '  *   UPD8  Tv   *  ) 

scanner; 

I v   SY^    =    IP^MT    TUEM 

BEGIN    A    :=    POSREL(STR);    3    :=    RELTBL  [Al  .BASE? 
C    :=  reltblTa!  .size;    SraNN??.;    setcllist; 

IE    SYM   =    WEERSYM    THEN 
BEGIN    SCftN'NEP;    BOOL: 
ECR    I     :=   1    TO   TREE   DC 
BEGIN    CX    :=    CX+1! 

RTT^LfCX]     :=    SAVTBL[I] 

end; 

FO?  I  :=  1  TO  TSEO  DO 
Ri'GIN  TOP  :=  TOP+1* 

SECTBLTTOPl  :=  SAVSEO[I] 

END 
END    ^LSE    EPPOP'IDEN'T^ 

*ND    ^LS^ 

IE   SYM    =   PELSY"    THEN 

BEGIN  (*    DELATION   *) 

SAVSYM    :=   SYM;    SCANNER? 
I?    cjyM    =    IT)ENT    TFEV 

vvnTm    a    :=   POSREL(STR);    ?    :  =   RELTBL  [A]  .  BASE? 
C    :=    RELTBL  TO  .SIZE? 
^NT^R ' a .0  f  0», EUNC .  N?R  ) ; 
SAVREF    •=    PEETBL[rxi;    CX    :=   CX-1J 
S  r  a  n  n  VR  : 

IE    SYM    =   WHERSYM    THEN 
BEGIN    SC*NNE?;    BOOL ' 

nI    t=    CX*lt    R^ETBLfCX]     :=    SAVREE? 
GENfS  MfSYM^ 
END 
END   ELSE   ERROR(IDENT) 
END   ELSE 

bfgin  (*  inquiry  * ) 

ouepyexpr; 

IT    SYM   =    ORDSYM    T-EN 

b?gin  scanner; 

IE    SY^   =    BYSYV    THEN 

*egin  scanner:  ordspeclist 
end  else  errors bysym) 

tnd; 

END 

end;  (*  st^e^ent  *) 
end.   '*  unit  parse  *) 


/   •Ly  *t*  »>*  «i*  -»-  «i>  *•»  *u  o*  ■/>  „>  -  ki«  »>*  v*  y>  ^  »<*  •»*  Ju  *u  *u  »t»  ju  »**  o*  o^  »>*  *.»-  »»-  «j«  y*  .1.  *»-  »u  *»»  «u  »'*  y*  *,u  *u  y*  y*  «j  -  -*■>  -1-  •*»-  «j»  «v  »'*  *■'*  ***  *A*  »•*  »'-  »'■•  »V  - V  -'  - 
f   *i»  *r  *r  *»*  nr  *r  *r  *»-  -r  'i*  *r  *i*  *r  *i*  J.*  "n  *^  *c  *v  •*»•*  *l-  *r*  *r  V  *v  »**  *n  »»*  *i-  *r  *r  *r  *!*  *■■*  *r  n*  -»*  *r  *r  *r  -v  3r  n**  i*  *r  -nr  *r  ?n  *r  »r  *c  *v*  n*  *r  *r  *r*  *»*  i* 

/   ,•*  -J- 

f    -.-  *r 

(*   THIS  UNIT  IS  USED  TO  INTERPRET  THE  USER'S  REQUEST      * 
(*   ?Y  INTERPRETING  THE.  TAIL'S  AS  T^7  RESULTS  OF  THE       * 

(*  PARSER  OBOVE  * 

(*  * 

'    «•*  -J*  »*^  ■,'.  s*#  *'■*  ■*'"  *■''     ''  ***  J-  ■"'*  ■•'-  *■' *  *■'*  »**  *■'*  »'*  •*'  -'*  ***  «•'-  -'■*  ■»•«'  •**  -'*  "•*»  *'-  ***  **-  «■**  •■'•'  *'-  V'  •'*  **i»  "J*  •>'-  V*  »*■•  *'*  •>'*  i'"  *•*»  »'»  »'■*  ***  ■*'*  *'■*  V*  *■**  »•*  *'*  y**V  **■*  ***  **'* 
(      *-,*  *|»  *^  », »  *v  *p  >|»  *t-   'i*  *(•  i^»  *^*  *^>  »v»  *i»  »-|-  <n^  •■(•  **»  *i»  *t-»  »-f»  »|*  *4*  *t»  «^->  '■j*  n"  Jf»  *(»  ",»  *,t  *,S  -,*  *]*  7,*  *i*  >4«  ^|*  »>  <»j»  ?,>  ^,-«  *fi  *p  *^  «^*  *|«  *4"  /^  #t*  *-p  *t*  *»*  *C  *»%  t*  *P 


UNIT  INTF 

rpr^ter; 

INTERFACE 

USES  P.* 

pse; 

TYPE 

RELATION   = 

•  RECORD 

"n»m^     !  integer; 
dept     :  integer? 
skill  :  integer; 
sal       :  integer; 
manmo  :  integer 
end; 

CHPREC 

■■    RECORD 

N  »ME 

integer; 

CHN AME 

:  integer; 

SEX 

-   integer; 

tnTv 

:  INTEGER 

end; 

VAE 

L,M,N, 

•p  « u  •?  r  M  0 

integer; 

TUPLF 

relation; 

T  STJ^T 

:  FILE  OF  RELATION; 

CHDT^L 

:  FILE  OF  CHDREC? 

D^T  »  , 

ANYDATA, 

DEPTDAT*. 

SALD«T«  , 

AGE DAT A 

:  FILE  OF  INTEGER; 

STRBATft  , 

NAM'DAT^  , 

SKILLDATA 

» 

MANNOD'TA 

• 

n^DD.'T  *  . 

SEXDATA  : 

FILE  OF  ST 

3ing; 

PROCEDURE    INTRPR^T; 

IMPLEMENTETICN 

VAE         BLNK, 
IN^U^, 
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R\'AME  . 

i)v  a  ME  ' 

:  S  T  ?  I M  T-  ; 

S^O 

:  SYMBOL! 

SETNO, 

SET^FC, 

SETTPL 

:  SFTTUP; 

TEMPS 

:  ARRAY  [1. 

.6]  OF  SSTTUP; 

NEXT 

:  boolean; 

PROCEDURE  INTRPRFT; 

(  sjs  =r  *  ^ £  #  n* *  *r #  £  :!c  *  #  s!{  ■'.*  *  5>  #  #  ♦  ^ '.;  '*,: ■'  i?  *  =!' 'I '  ^  # *  #  '■'.- ?','■  # %'•  »!< *  s'r  #  *  Sp '.«  5l5  # #  #  #  'Is  *  5p >r  # # #  * 
f  *  * 

(*     THIS  PROCEDURE  WILL  GIVE  »LL  THE  TUPL*1  NUMBERS      * 

f 

( 

( 


WHICH    THE    CONDITION    OR    QUALIFICATION    GIVEN  * 

J* 

T 

u  *•*  y*  *■«■  »•-  *■'*  »•*  «.t-  ***  «i*  *t+  <.**  »'*  »**  ~>*  »•*  »' .  j*  *»*  »i.  *■*  o»  •»•*  *i*  «j<  %•-  •,»*  »•<  «i«  y  ***  ***  •**  v*  *^*  *•■»  ^v  •»•*  *v  s'*  %**  *•*  ***  "V  •*»  **■'  ***  ***  *|*  ***  *•"*  J*  •',''  v*  v#  v*  ^* 

,»  *t^  *t*  *,"■  *i"*  ^i*  *i*  *T*  "i*  *|*  *|*  *i*  *i*  •"i*1  *i»  1*  *|*  *»*■  *i»  *(*  *i"  ■»(■*  *t»  *i»  »i»  *,■»  ■*,••  ',■»  »t*  ?i»  *•(*  *,»  »|*  7(*  »  •  *t*  *,*  »|-  *|*  3,*  *t»  *,»  *t»  *|»  'p  *^»  *v»  'i*  *(»  ?i^  *i*  *|*  i»  *,■»  >i*  *|*  *K* 


PROCEDURE  nONDITION(RNO,ANO,VAL  :  INTEGER;  STAT  :  STATUS; 

ECT,KIND  :  SYMBOL;  OUOTS  :  STRING); 

VAP    A.  5, 

I  ,  J  :  integer; 

PROCEDURE  GETTUPLSNO^FUNC  :  SYMBOL;  A,  B  :  INTEGER); 

BEGIN 

SFTTPL  :=  f!i 

for  j  :=  1  to  b  do 
case  func  of 

insy^  :  if  j  in  stmrec  then 

sfttpl  :=  sfttpl  +  i nvtpl  [a+j] j 
notin  :  if  mot  (j  in  setp.ecl  then 

settpl  :=  settpl  +  invtbl[a+j] 
end; 
end;  c*  gettupleno  *) 

"with  att?l[ano]  do 

BEGIN 

DNAME    :=   CONCAT( '#5: ',ATN)J 
»    :=    ftDDRJ    P    :=   SIZ 

end; 
if  not  next  teen 

case  kind  of 

NRP  :  BEGIN' 

R^S^T  ' D ATa  tDN.a'M',:,)  ; 

DARECMO  :=  0?  SETR'C  :=  [  ]  J 

WHILE  NOT  E0F(DflT!O  DO 

BEGIN 

CASE  FCT  OF 

^OL  :  IT  DATA"  =  VAL  THrN 
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LSS 

L*0 
GTR 
GEO 


SETREC  :=  SETREC+ [DARECNO+1] ? 

jt  rja'PA^  ^N  V*L  THEN 


SETREC 


jt<    r»  fi  <^t       y    y  ? -L  TUV?N 


SETREC 


I?  TATA   <  =  VAL  THEM 


SETPEC 


5  ttRpC 


I  N S Y!^"  :  IP  "OAT5 

SETREC 

NOTIN 


=    SETREC+  [DMSCNO  +  ll  ; 


=    SETREC+[DABECNO+l]  J 


=SETREC+[DARECNO+l]  ; 


IF   DATA      >   VAL   THEN 


=SETREO[DARECNO  +  1]; 


IE  DATA   >=  VAL  THEN 


=S?TREC+[DARECNO+l] ; 
'  IN  SETNO  THEN 

=setr3c+[darecn0+1]  j 
if  not   'datj~  in  setno)   then 
setrec   :=  setrec  +   [darecno+1] 

*nd: 

get  (data);  barecno  :=  darecno+1 

clcse(data.lcck) 
end; 

OUOT  :  vv"in 

RESET (STRPATA.BNAMS) ' 
DAPECNO  :=  7}    SETREC  :=  [  1  J 
WHILE  NOT  *0~(STRDATA )  DO 
BEGIN 

n  ^gp  "FCT  QV 

EOL  :  IE  STRDAT*"  =  OUOTS  THEN 

S^TR^C  t=SrTRrC+ [DARECNO+1] J 

NEO  :  IE  5?RDATA~  <>  OUOTS  THEN 

SETREC :=SETREC+  [DARECNC+ll 

get(strdata);  darecnc  :=  darecno+1 
end; 

^LOSwSTRDATA ,L0p*O 

END 

end; 

I'  'STAT  =  R^TR)  OR  'STAT  =  T^ 

THEN  GETTUPLENO(INSYM,AfB) 
ELS*  SFTTPL  •=   SETREC 
END  ELSE 

IF  'STflT  =  P.FTR)  CR  (STAT  =  CKEY)  THEN 
r.i$v   v c T  Ov 
'   INSYM  :  GETTUPIEN0(IMSYM,A,3)i 
NOTIN  :  GETTUPLENO'NOTIN,  a  tTJ) 

END  ELSE 

CASS  *CT  OF 

INSYM  :  SFTTPL  :=  STR"^; 
NOTIN  :  3SGIN 

SETTPL  :=  P ; 

FOR  J  :=  1  TO  MAXTPL  DO 

IF  NOT  (J  IN  SETPEC )  THEN 
SETTPL  :=  SETTPL  +  [Jl 
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END 

K     :=    K-i;    TEMPS  [V,     :=    SETTPL 

end; 

/  ,'-  »**  «U  »'*  ml*   ».<»  »>*  .•*  *I*  »U  «i-  »',  *'<  *f#  «.»*  %i„  »'  -  ,u-  »'*  «1*  *i*  »•*  »**  x»*  *»*  .'»  %>•  »•*  iJU   *•*  «.•»  *•*  J*  »'*  »<*  »**  »'*  •*'-  **■»  *'■*  *•*  **■•  »'*  *'*  +>"  *'»  V*  *'■»  »*■»  *'*  »''•  ■**-  fc1*  >'*  *•''•  »•*  V*  \ 

f  *r*i**r  **»n*  *t-  ***  i"  -i»  V-i*  *v*  '»•  "i"  ***  V  *i*  '.»  -,*  ?**  *»»*1-»  *r*  »i»*«-  ' .■•  'i*  *t*  3,.  --,»  -,",*•  *t-.  »,*  *!*  *|»  -■,»  ^,v  *,-  *,*  *,.  *,»  *,»-(-  *.-  'I**,--  *r  *,*  V  *i*  't-'.-*  V*i*  *»*  n*  ) 

(*  *i 

(*  THIS  PROCEDUPE  GIVES  THE  RECORD  NUMBER (S)  OE  THE  *) 

(*  REQUIRED  ATTRIBUTE(S)  WHICH  MEET  THE  GIVEN  CONDITION  *) 

[*  THE  RESULTS  WILL  PASS  TC  THE  NEXT  SEQUENCE  (  SEE  *) 

(*  SEQUENCE  AND  REFERENCE  TABLES  )  OR  RE  PRINTED  OUT  *) 

(*  *) 

PROCEDURE  QUERY 'RNO.ANO:  INTEGER); 
VAR  J  :  INTEGER? 

PROCEDURE  RELATEl:  '*  ^IND  IN  RATION  NO.  1  *) 
BEGIN 

R^^SV1"T*'PL'^,RN^M',:,)  ; 

IE  'SETTPL  =  []  )  AND  (I  =  TO?)  THEN 

BEGIN  WPITELNf'Not  found'):  EXITf INTRPRET)  END 
ELSE 

FOR  J  :=  1  TO  MAXTPL  DO 

I'  (J    IN  SETTPL^  »MD  'NOT  *0E{TABLE ) )  THEN 
BEGIN 

Srr7^TST5L^,J-l  )  ; 
GETfT.ABLE^; 
WITH  T8"°Lr~  DO 
BEGIN 

IE  '1  IN  A.TTS)  AND  (NOT  E0E(TA3LE))  THEM 
IF  I  =  TOP  THEN 

BEGIN 

$vv\(  ( \]  iSMTT-nflTia  t  jyjfl  nje-1  )  ; 

GET(NAMEMTA); 

L  :=  LENSTH(N»MEDATA~) ; 

STR  :=  CONCAT(NAMEDATA'\ 

CO?Y'?LNK,l ,22-L) ) ; 
WRITE (STR) 
END  ELSE  SETREC:=  SETF.EC+  [N^ME]  : 
I?  (2  IN  ATTS)  AND  ( NOT  EOEfTABLE))  THEN 
IE  I  =  TOP  TH^N 
BEGIN 

SEE£(DE?TDA.TA,])E?T-1 ) ' 
GET ' D'PTDAT a ) ?  WRITE (DEPTDATA"  :  4) 
EMD  ?LSE  SETREC:=  SETPEC+  [DEPT"1  ; 
IE  (3  IN  ATTS)  AND  ( NOT  EOFf TABLE))  THEN 
IE  I  =  TO?  THrN 
B^f  i  n 
"SEEK (SSILLD ATA .SKILL-1) ; 
GET(SEILLDATA); 
L  :=  LENGTHfSKILLDATA"); 
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STR    :=   CONCA'K  '         '^SKILLBATA", 

C0?YCBLNK,1,15-Lj)  ; 

WRITE 'STR) 
E^D    ELSE   SET?EC:=   SETREO    [SKILL]; 
IF    (4    IN    ATTS)    AND    (MOT    EC J (TABLE))    THEN 
I?   I    a   TO?   THEN 
BEGIN 

SEEK(SALDATA,SAL-l)t 
G^T'S^LD^T* ):    WRI TF'  S  ALDATA~    :    6) 
END    ELSE    SFTREC:=    SETPEC+    [SAL]; 
IF    (5    IN    ATTS)    AND    (NOT    EOF(TABLE))    THEN 
I?    I    =   TO?   THFN 
BEGIN 

SEEK'M*NNOD*TA ,MANNO-l)» 
C-ET(«ANNODAT«  )  JWRITE{  '         '  ,MANNODATA~) 
FN!)    TLS17   S7TRT,Ct=    SETR'q,r+    [MANNO] 

end; 

jt  i  =  TO?  THFN  WRIT'LN 

end; 

IF  I  <N  TO?  TEEN 

BEGIN   K    :=   K+1?    TFM?S[Kl     :=   S^TRFC    "ND; 
CLCSE(TABLE.LCCK) 

end; 
procedure  relatf2j   (*  find  in  relation  no.  2  *) 

BFGIN 

^ESET''  CHDTRL.RNA^E); 

IF  'SETTPL  =  H)    aND  (I  =  TO?)  THEN 

TT?GIN  WRIT*LN('Not  found')?  SXIT(IMTRPRET)  END 
ELSE 

^OR  J  :=  1  TO  M?XT?L  DO 

I?   J  IN  SETT?L)  AND  'NOT  EOF(CEDTBL))  THEN 
■p  v  rr  T  kj 

SEEK(CEDTBL.J-l) »  GET ( CHDT^L) 5 
WITH  ^HDTBL   DO 
BEGIN 

IF  f6    IN  ATTS)  AND  'NOT  EOFfCHDTBL))  THEN 
IF   I  =  TO?  THEN 
BEGIN 

SFFK  'N^M^^T*  ,NSM?-1  )  : 

GET(NAMEDATA); 

L  :=  L^NGT^fNAMEDATA") ; 

STR    :  =    CCNCATf NAMEDATA'\ 

COPY(BLNI,l  ,25?-L)  ) ; 
WRITE 'STR) 
END    ELSE    SET?ECr=    SFTF;FC  +    [NAME1  J 
IF    (7    IN    ATTS)    AND    'NOT    EOF(CHDTBD)    THEN 
jt?    t    =    TO?    TH'N 

-QVP  T  M 

SEEKf CHDD^T* ,CHN  »ME-1 ) » 

GET(CpDDATA) 5 

L  :=  LENGTH  fCHDDATA.^); 
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STR  :=  CONCATC CFDBATA~, 

C0^Y(QLNT<M,2'>-L)  )  ; 
WHIT?  STR) 
END  ELSE  3ETBSC:=  SETEEC+  tCEN-MI]; 
I?  (8  IN  ATTS)  AND   NOT  EOF 'CHDTBL) )  THEN 
I?  I  =  TO?  TT'N 
BEGIN 

SEEK(SEXDAT*,SEX-1); 
GET(SEXDATA); 
L  :=  LENGTH(SEXD«TA~)  J 
STR  !=  CONCAT( '  ',SFXDATA~,'  '); 
WHITE ( STR) 
VND  ELSP  SETR*n:=  SETREC+  [SEX]  J 
IF  '9  IN  ATTS)  AMD  (NOT  E0?(CEDT3L))  THEN 
IY    I  =  TO?  TEEN 
BEGIN 

%^YKf  ! G^D fl T 5 , AGP-1 ^  ; 
GET (AGED ATA); 
WRITE ( HGEDATA^tS) 

end  else  setrec:=  setrec+  [age] 
end; 
i"  i  =  to?  then  writeln 
end; 

it  i  o  to?  then 

BTGIN   *    *=   K+l !    TEMPS [K]     •  =   SETREC    END. 
CLOSE'CHDTRL.LOCK) 

end; 


)  end; 


BEGIN   (*  QUERY  *) 

IE  I  =  TO?  T^N  WRITELN: 
IE  1  IN  ATTS  THEN 

BEG  I N  RES ET ! N AMED  ATA,  '#5  :  N  AME  '  ) ; 

IE  I  =  TCP  THEN  WP.ITE(  '        NAME  ')  END; 

IE  2  IN  »TTS  TH^N 

BEGIN  RESET  (DEPTI5AT* ,  '*5:BE?T') ; 
IY   I  =  TO^  THEN  WRITE( 'DEPT')  END; 
IE  3  IN  ATTS  THEN 

BEGIN  RESET (SKILLD'TA.  '*5:SKILL'^  ; 
IE  I  =  TO?  THEN  WRITE ( .  '      SKILL 
iy    4  JN  *TTS  TH^N 

BEGIN  RESET(SALDA  TA  ,  '#5:SAL') J 

IF  I  =  TO^  THEN  WP.ITEC   SAL  ')  END; 
IF  5  IN  ATTS  THEN 

BEG  I N  DV5ET I Mfi  NNOD  ATA ,  '#5:MANN0') ; 

IE  I  -  TC?  THEN  WRITE('    MANNO  ')  SNDJ 
lv    a    IN  ATTS  T^N 

BEGIN  RESET (NAMED AT A .  '*5:NAME'  ) ; 

p  I  r  TO?  THTN  WRIT7''         NAME         ')  END; 
IE  7  IN  ^TTS  TH7M 

15 EG  I  N  R^S^T  '  PtTDDA.  T  A  ,  '#?  t  CHN  flM'r  ' )  J 

IF  I  =  TOP  THEN  WEITE('  CHNAME  ')  END: 

IF  S  IN  ATTS  THEN 
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I? 


WR 

RN 
31 


IF 

iT 

IF 
IF 
17 
IF 
I* 
IF 


BEGIN 

T7  I 
9  I  N 

IF  I 

TT"LM; 
AME  ?  = 
NX  :  = 
CASE  ? 

1  : 

2  : 

fnd: 
i 

2 
3 


IN 
IN 


4 
5 

7 

D 
Q 


IN 

IN 
IN 
IN 
IN 
IN 


RESET (SEXD*  TA,  '#5:SFX')  ? 

=  TO-3  THEN  WRITF('  SrX  ')  END? 
A  mTS  THFN 
R^S  TT  '  fir,"r,Ti4rn5  '#5«ftPTp'^* 

-^TOP  THEN  WRITeC'sGE^)  FNDJ 

writeln; 

ccncat(  '#5: '  .reltbl f-no]  .named); 

';    S ETHIC    :=    []  ; 
NO    CF 
R^LfiTFl? 
RELATE2 


flTTS 

»TTS 
ATTS 
ATTS 
5TTS 
ATTS 
»TTS 
ATTS 


T^N  ^LCS? (N».M77)AT 4 .LOCK) ; 
THEN  CLOSE(DF?TDATA,LOCK); 
TUTN  CLOSE (SKILLDATA,LCCK)  ; 

THFN  CLOSFf  S4LDA-TA.,L0C'O  ; 
THEN  CLCSE(MANNCDATA .LOCK) J 
THFN  CLOSFf  N^T^-r-a  f  LCPK)  : 
THFN  CLOSE(CHDDATAfLOCK); 
THEN  CL0S^S7XD«Ta  ,LO°K  ); 
TFFN  CLOSF( AGED«T£ .LOOK) 


end; 


PROCEDURE  DEL(A.B,C  •  INTFC^R;  D 


[*  DELETE  THE"  ASSOCIATED  INDEX  F 
r*     TtrTP  RELATIONSHIPS  FILE 


.OM 


int: 


v  ar  p 

RESET    ANYRSL,D)J 

INVTSLTC+*!     :=    IMVTBL[C  +  A]    -    [?1  ; 
ANTRAL    .S^T  NO    :  =    INVT"PL  Tr^ftl  : 
SEEK'  ANYRELtA-l);    PUT(ANYREL)  J 
CLOSE f AN YR*L, LOCK) 
ENT;       ( *   DELETE    *) 


PROCEDURE    PUTS  C  <\  ,v  , 


integer; 


integer;  ^  :  string); 

(*  °TJT  THE  ASSOCIATED  INDEX  IN  THE  *) 
(*     RELATIONSHIPS  FILE  *) 


y»r  ? 

BEGIN 

RESET ( ANYRFL.D) ; 

INV^H^9"1     :=    INVT'DL[r,-t.fl]     x    [*°]  ; 

ANY^EL    .SETNC    :=    INVTBL  [C^A1 ; 

S^vf  s.NYRn.8-1  )  ;    PUT'  "MYRTLE  : 

CLOSE  ANYREL.LOCK) 
end;   (*  PUTS  *) 


PROCEDURE  SETREL(RNO,ANO,I  :  INTEGER);  FORWARD; 
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(*  *) 

i  i\i      tuIS    PROCEDURE   V.'  ILL   UP'nflT17   TtTT   ^4Tfl    BaSE   BY   UPDATING        * ) 
(*      TKI    INDEX*  NUMBER (S)    IN    THE    RELATIONSHIPS    EILE(S).  *) 

(*  *) 

/  »t*  •»'*  ■»'*  %**»•*  »•*  »'*■  »*»  v*  ***  *'#  »■*  »*-  *•*  «'*  »'*  •■*>  *i*  ***  *V  »'*  »•*  »V  J*  V*  ^*  *'*  V*  *J*  ***  »*#***  *V  *•*  »A*  WU  J*  »'»  «.'*  V*  *-*»  »V  ^l*  *J*  ***  *-'*  V*  ***  *'*  *V  ***  *'*  *'*  *V  *J*  »'*  *V  V*  ***  \ 
|  *,»  *i**p  *i**r"  *i*  *r*  *»*  ■*!"•  *i*  -t"*  **i*  't^'i""  *»*  *i%  *.*  "(*■  "i*  *>  't-  "t*  *i*  *>**»  *,■*  *»•*.-  #,»  71*  *!**»■*  *i*  *i*  *«*  *v  *P  *■*  i*  *B*  *p  *•*  *'"  *>*  *•*  *■"  *p  *p  "i*  *t*  *\%  *t*  *i*  *i**r*  *»*  *c  ?i~*  *p  J 

PROCEDURE  U?DATE(VAL,RNO,AN0,T  :  INTEGER;  RNAME,ENAME, 

OUOTS  :  STRING;  OBJ  :  SYMBOL?  ST  :  STATUS); 
VAR   I,  J.  T/  :  INTEGER; 
3EGIN 

IF  NOT  NEXT  THEN 
?  EG  I N 

TARE C NO  :=  0; 
C*SE  OBJ  OE 
NER  :  *?GIN 

RESET(ANYDATA.FNAME) J 

IE  ft.NYDATA"  =  VAI  THEN  I  :=  DAHECNO-1 
ELSE  REPEAT  GET ' ANYDATA ) ; 

DARECNO  :=  DARECNO-1- 1 
UNTIL  (ANYDATA"  =  VAL)  OR 
fYOv(  ANYDATA  )  )  ; 
IE  NOT  EOF' ANYDATA)  THEN  I  :=  D  rECNC+l 
ELSE  BEGIN 

T'/EITELN( 'No  such  entry  found.  Insert?'): 

exit(intrpret) 

end; 

^LOS~f  «NYDflTa ,IOrK) 

end; 

OUOT  :  BEGIN 

R7STT' STRATA  ,ENAME)  ; 

IE  STRDATA"  =  QUOTS  THEN  I  :=  DaREGNO+l 
ELS7  R^P^AT  G^T  '  STRD  aT  4  )  \ 

DARECNO  :=  DARECNO+1 
UNTIL  'STRD AT  ft"  =  QUOTS)  OR 
(EOF'STRDATA ) )J 
lv   NOT  EOwSTRD*T«)  THEN  I  :=DARSCNC+1 
ELSE  BEGIN 

WRTTELN(  'No  s^jch  entry  founi.  Insert?'); 
EXIT( INTRPPET) 

end; 

CLOSE(STRDATA.LOCK) 

rND 

end; 

END  ELSE 

TOR  J  :=  1  TO  M»XT?L  DO 

IE  J  IN  SETREC  THEN  I  :=  J» 
SETR^LfRNO. ANC,I) : 
IE  T  =  TO?  TFEN  WRITELN  (  'Upia ti»s   is  done  ) 

~nd;  '*   UPDST7  *) 
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?POr'T''nURT  SrTR'rLt 

"begin 

CflSr  RNO  Cv 

1  :  BEGIN 

RESET  '  TABLE  ,  EN  -  ME  )  ; 
WITH  *TT"PL[ANO]  ^0 
BEGIN! 

EFLNAME  :=  CONCAT(RNAMEf ' .  '  ,  ATN) • 

K  :=  ADDR 

end; 

t^OR  J  :=  1  TO  M»XT?L  DO 

IE  (J  IN  SETTPL)  AMD  'MOT  EOE(TABLE))  THEN 
P^GIN 

SEEK(TABLE,J-1);  SET(TABLE); 

WITH  T»BLF~  DO 
CASE  ANO  OE 

1  ;  ma  my  •=  I J 

2  :  PEGIN 

PEL'DE?T,J,K,-EL\iAME); 

DEPT  :=  I:  PUTS (DEPT  ,J,K  .RELNAME) 

end; 

3  :  BEGIN 

DEL'S7ILL,J,E,=EL\iAME); 

skill  :=  i;  puts'skilltj,k,reln*me) 

emd; 

4.  :  "B^GIN 

DEL'SAL.J.K^ELNA^E) ; 
SAL  :  =  I  J  PUTS  '.  S  1L f  J  , \ ,  HELM  AME  ^ 
EMD? 
5  :  BEGIN 

DEL'MANNO, J.K.RTLNAME) J 
MANNO  :=  Ii  PUTS(MANNO. J,K,EE1NAME) 
END 

end; 

§vvy  ''TaBL  v  .  J-l  }  !  PUT^TAPLE) 

end; 

CLOSEST  ABLE fLOClP 

end; 

2  :  BEGIN 

RESET(CHDTBL,RN»ME)  J 
WITH  •TT'L^NO]  DO 
BEGIN 

EELNAME  :=  CCNCAT ( EN AME, '. ' , ?TM ) J 

K  :=  A DDR 

end; 

top  J  •=  1  TO  *!*XT?L  ^0 

I?  (J  IN  SETTPL1*  AND  (NOT  EOE(CHDTBL))  TEEN 
BEGIN 

SEET<:(CEDT^L.J-1);  GET(CHDTBL); 
WITH  CHDTBL   DO 
CASE  ANO  OE 
€    :  BEGIN 
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D7L  ( via  m1?   j  y ,  p  "P  L  N  A  M  "£) ; 
NAME    :=    I? 'PUTS rN  ^1, J,K,  E3LN?.ME) 
"irMT  J 
7    :    BEGIN 

DELfCENAME,  J,Xf?.ELN  \ME)  : 

CHNAME    :=   I?    PUTS (CHNAME , J, K.RELNAME) 
END; 

9    :    BEGIN 

DEL(SEXfJ,K,RELNAME); 

s^t  ?  =  i:   puts(sex,j,k,relnams) 

end; 

9    :    BEGIN 

DEL(  A.GE,,T,K  .RELNAME); 

priv    r=    I  j    PUTS'  5C—  ,J,K,RELNAME) 

END 
7N^; 

seek(ceetbl,j-1) ;  put(chdtbl) 

end; 

END 
END 
TND;       '*    S^TR7"!    *) 


BEGIN       '*    INTPPPET    *) 
NEXT    *=   ^-'LSr; 

i   :  =  0;  j  :=  0;  k  :=  0; 

REPEAT 

I    :=  I+i:    ST0    :=   S^OT^LCl1 : 

CASE    SEC    OF 

COND         :    BEGIN       (*    IDENTITY    TEE    QUALIFICATION    *) 

J    :=    J+1!     INS    :=    REETBL[J] ; 

WITH    INS    DO 

■qrif  t  m 

ST    :=    ATTBLfANO]  .ST  *T» 
0"°J    s=    flTT^LfiNO]  .KIND; 
IE    OBJ   =    NBP    TH^N 

CONT>ITION(RNO,ANO,VAL,ST,ECT,OBJ, '    ') 
ELSE 

CONDITIONING,  *  NO,  %  ST,  "PCT,  OBJ,  QUOTS) 
END 
END? 
SELSY^    :    BEGIN  ( *    INQUIRY    *) 

S^TTPL    •  =   TEMPS  [K] ;    J    '=   J+1 J 
WITH   REPTBLTjl    ^0 

BEGIN    ATTS     :=    NAMES;    QUERY( RNO, ANO )    END 
rND; 
SETSYM    :    BEGIN  (*      UPDATE      *) 

S^TTPL    :=    TEMPS  [K]  ;    J    :=    J+U 
INS    :=    PEETBLTJl  ; 
WITH   INS    DO 
BEGIN 


ice 


CRSYM 

ANDSTM 

,0D 


RNAME    :=    CONC*T( '^5: '.ESLTBLpNO]  .NAMED)  ; 
FNAME    :  =    C0NCAT('#5:'tATT3L[AN0l .4TN)J 

ST    ?  =    ftTT'L  [^NO1  .ST^T: 
ORJ    :=    ATTBL[ANOl  .KIND; 
iv    qpj    =    Npg    THEN 

UPDATE (VAL,R NO, ? NO , I ,RNAME, FNAME, '    ' , 
NBR,ST) 
ELSE   UPDATE(P,RNO,ANO.I  ,RN  5ME,ENAME, 
OUOTS ,QUOT,S?) 

END 

RE'IN    K    :=   K-i;  (*      OR      *) 

TEMPS  [Kl     :=    TEMPS  [Kl  +    TEMPS  [K-^l] 
^ND: 
"ECtIN    K    :=   K-I?  (*      AND      *) 

T^MPS  HO     :=    T^MPS [K]  :;'   TEMPS  l*K  +  ll 

end; 

3esin   (*  pftss  the  results  to  the  next  step  *) 
setrec   :=  temps  [si  j  k  :=  k-1j 

NEXT  :=  TRUE 

ENT 


END 
UNTIL  I  =  TOP 
END?   (*  INTRPRET  *) 
END.     (*  INTERPRETER  *) 
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/  ik*«  <*<*  *■>  »*»  o*  «ju  *]-  «j*  »**  %•-  *t<  j-  «ju  »•-  »i*  *<*  «i*  »'-  o*  *j*  v>-  «.'..  o*  »'-  y-  *ju  <j>  «•-  *•*  ..«■>  -,'-  *>*  *.'* 


•j*  *•-  j*  »>«  -j*  *j>  * 


J*  -'  .  .  :,  ,'*  O*  Jt#  «|#  *•*  -'  -  *.U  »'-  «V  J*  »t-  *.'-  -»-  *'*  -'-  -'-  -'' 


*** ) 


THIS    IS    THF    MAIN    PROGRAM    0^    T^7    MI  CROD*  T«B  *SE    SYSTEM. 
TEERE    ARE   FOUR    UN  ITS    (    CREATE;    PEPS??.    INTERPRETER,    HELP    ) 
TO    PERFORM    THE    THREE    FUNCTIONS    OF   THIS    SYSTEM.    THE    THREE 
^UNCTIONS    AR^    :    1.    DATA    BASE    INITIALIZATION 

2.    TAT4    **SV   MANIPULATION 

7>.    HELP   ^UNCTION 


( * 
I  * 

(* 

(  * 

(* 

( *  * 

/  «U  »»*  o-  O'  *»*  %**  V*  -A*  »*■*  *>-  V'  4*  -'*  *'*  »'*  •*'-<  *•*  ■»'-  -*■*  *'-'  i'-  **'  v  -''  •*'-  •*'*  ***  *V  i*-  -*-  <i'"t*~  W>*  *»*%•»  *v  j*  *»*  -.*-  ,»-  •!«  _'-  a#  u*  ..'*  %t*  -,v  »•*  %VWi*  **g  V*  -'*  **■*  -'■'  Jf  tfi  *'•  '•'--«--'*  *»-  v*-  -'- 
*  3g*  *,»  .I*  >.-',-  *,»  ?j»  ->*  *y>  *!*  ?,»  »■,-  *r  *.*  *i»  *("  *p  *r*  *r»  'i5  *i*  n*  n*  ¥*p  *i*  *r  *-i-  t*  *i*  3i*  i*  5?  i*  *im  *?  "V  t*  *v  t*  *i*  *r»  n*  *p  *r  n*  '•*  *r*  *TP  *v*  t*  *»*  *r  *r  *i*  •»*  ^r  *r  *»*  *i*  *i"  *r-  *i*  *c 


PROGRAM   MICP0DATa; 

USES    PARSE,    INTERPRETER,    CREATE,    HELPS; 
V«R     fJ    :    char; 

BEGIN 

R*S?T'X,  'CONSOLE:  ');   writfln: 
WRITELN(  'MICRO    DATA.    RASE    SYSTEM');    WRITELN; 
WRIT7' 'Command    :    Cfreate.    X^ecute,    u^elo  ->'); 
READ(X,CE); 

FCR    I     :=    1    TO    ?   DO   WRITFLN; 
CASE    CH    OF 


'C 

'H' 
'X' 


CREATES?     (*    D«T?    RflS^    INITiaLIZaTION    *) 
HELP         ;    (*    HELP    ^UNCTION  *) 

ptp^IN  (*   D*TA    R.aS7   MANIPULATION         *) 

initialize;  prepare; 

^X    :=   <*:    ^C    :=   0;    LL    :=   0; 

WHILE    NOT    EO^'X^    DO 

"GIN 

scanner; 
statement; 

jy    'NO^RR)    *N^    ^SYM    =    PRD)    THEN    INTRPRET 
END 


END 
END.         (*   MICRODATA    *) 


1  (73 


BIBLIOGRAPHY 


1.  Shillirgton,   K.   and   Ackland  G.M.,  UCSE  Pascal  Version 

1.5,  Institute  *or  Information  System,   UCSD  mailcode 
C-021,  La  Jolla  Ca  92093,  Sept.  1973. 

2.  Martin,   J.,   Con-outer   Data-Base  Organization,  Prentice 

Hall,  Inc.,  "Sn^lewood  Cliffs,  New  Jersey  07632,  1977. 

3.  Morn,  Granino   *.,   Microprocessors   and   Small   Digital 

Computer   Systpms   For   Engineers  and  Scientists, 
McGraw-Hill  Book  Co.,  1977. 

4.  Kroenfce,   D.,   Database   Processing,   Science   Research 

associates.  Inc.,  19?7. 

5.  Chamberlin,   D.D.,   Relational   Data-Base   Management 

Systems,  Computing  Surveys,  Vol.  9,  Mo.  1,  March  1976, 
pp  43-66. 

6.  Digital  Research,  Post  Office  Box  579,  Pacific  Srove   Ca 

93950,  CP/M  Newsletter,  august,  1979. 

7.  Date,  C.J.,  An  Introduction  To  Database  Systems,  2d  ed . , 

*,ddisor.  Wesley  Publishing  Co.,  1977. 

3.  *strahan,  M.M.  and  others,  System  R:  Relational  Approach 
to  Database  Management,  ACM  Trans.  or.  Database 
Systems,  Vol.  1,  No.  ?,  June  1976,  pp   97-137. 

9.  Charherlir,  D.D.  and  others,  SE0UEL2:  a  Unified  approach 
to  ^ata  Definition,  Manipulation  and  Control,  IBM 
Journal  Research  and  Development,  November  1976,  pp 
560-57*. 

10.   Cardenas,  A.F.,  Data  Base  Management  Systems,  Allyn  and 
Bacon,  Inc.,  Boston,  Massasuchetts ,  1977. 


1*9 


I M T T I fl L  DISTRIBUTION  LIST 


1.  Defense  Documentation  Ce^te^ 
Cameron  Station 
Alexandria,  Virginia  22314 

2.  Library,  Code  0142 

Naval  Postgraduate  School 
Monterey,  California  9394? 

3.  Department  Chair^a*,  Cod°  52B? 
Depa^* tmen t  of  pomouter  Science 
Naval  Postgraduate  School 
Monterey,  California  9394? 

4..  LCDR  ^.Purkhead ,  USN,  Code  f2?g 
Department  of  Corrpu'er  Science 
Naval  Postgraduate  School 
Monterey,  California  9394? 

5.  LT  M.  Moranville,  USN.  Code  52Mv 
Department  of  '""omouter  Science 
Naval  Postgraduate  School 
Monterey,  California  9394? 

6.  M»J  *mrun  Sehan,  The  Indonesian  Navy 
Mess  Dosen  PUSDI^I^L  SFSKO.appi  BAG.  LftUT 
Cipulir,  7ebayoran  Lama, 

Jakarta  Selatan,  Indonesia 

7.  M*J  T.M.  Sihombing,  The  Indonesian  »rmy 

DISPULLAHTA  TNI-AD 
Jl.  Veteran  Mo.  5 
Jakarta  t  Indonesia 


No.  copies 
2 


3.  DIS?ULL*HT*  TMI-4D 
Jl .  Veteran  No.  5 
Jakarta,  Indonesia 

9.      DISPULUHT*    TMI-»L 

Wisma    Lumba-lumba,   Jl.    Satotsubroto    No. 110 
Jakarta    ^usat ,    Indonesia 

.0.      PUSDIKIAL   SrSKO*PPI    BAG.    L»UT 
Cipulir,    7ebayoran   Lama, 
Jakarta    Selatan,    Indonesia 


110 


LTC  T.  Rumbayan,  SMC#  2106 
Department  of  Computer  Science 
Naval  Postgraduate  School 
Monterey,  California  93940 

LTC  Sudiyantn,  The  Indonesian  Mavy 
Kotak  ?os  4/OYCL 
Jakarta  Selatan,  Irioresia 

LTC  Yoon  C.  Sup.  The  Resuhlic  Of  Korea  Army 
#15-205,  KuT-^ONCr-APT. 
SU-C^O-^ONC-,  KANG-NAM-EU, 
Seoul,  Korea 


111 


Thesis 
S4088     Sehan 
c.l 


186945 


Data  base  management 
system  for  microcomptersnent 

mpu- 

J 

256  7  2 

27406 


Thesis 

S4088  Sehan 

c.l       Data  base  management 

system  for  microcompters. 


186945 


thesS4088 

Data  base  management  system  for 


I    I  II  III  i 


microcom 


3  2768  001  94464  8 

DUDLEY  KNOX  LIBRARY 


